diff options
| -rwxr-xr-x | httemplate/edit/svc_acct.cgi | 5 | ||||
| -rwxr-xr-x | httemplate/edit/svc_forward.cgi | 13 |
2 files changed, 10 insertions, 8 deletions
diff --git a/httemplate/edit/svc_acct.cgi b/httemplate/edit/svc_acct.cgi index 26266957d..2154bf22c 100755 --- a/httemplate/edit/svc_acct.cgi +++ b/httemplate/edit/svc_acct.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: svc_acct.cgi,v 1.4 2001-08-20 12:15:05 ivan Exp $ --> +#<!-- $Id: svc_acct.cgi,v 1.5 2001-08-21 10:27:11 ivan Exp $ --> use strict; use vars qw( $conf $cgi @shells $action $svcnum $svc_acct $pkgnum $svcpart @@ -128,7 +128,8 @@ if ( $part_svc->svc_acct__domsvc_flag eq "F" ) { map { qsearch('cust_svc', { 'pkgnum' => $_->pkgnum } ) } qsearch('cust_pkg', { 'custnum' => $cust_pkg->custnum } ); foreach my $cust_svc ( @cust_svc ) { - $svc_domain = qsearchs('svc_domain', { 'svcnum' => $_->svcnum } ); + my $svc_domain = + qsearchs('svc_domain', { 'svcnum' => $cust_svc->svcnum } ); push @svc_domain, $svc_domain if $svc_domain; } } else { diff --git a/httemplate/edit/svc_forward.cgi b/httemplate/edit/svc_forward.cgi index 86e2e9547..de4c8cbc9 100755 --- a/httemplate/edit/svc_forward.cgi +++ b/httemplate/edit/svc_forward.cgi @@ -1,5 +1,5 @@ <% -# <!-- $Id: svc_forward.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ --> +# <!-- $Id: svc_forward.cgi,v 1.3 2001-08-21 10:27:11 ivan Exp $ --> use strict; use vars qw( $conf $cgi $mydomain $action $svcnum $svc_forward $pkgnum $svcpart @@ -73,11 +73,12 @@ if ($pkgnum) { #find all possible user svcnums (and emails) #starting with those currently attached - my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svc_forward->srcsvc}); - $email{$svc_forward->srcsvc} = $svc_acct->email; - - if ($svc_forward->dstsvc) { - $svc_acct=qsearchs('svc_acct',{'svcnum'=>$svc_forward->dstsvc}); + if ( $svc_forward->srcsvc ) { + my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $svc_forward->srcsvc } ); + $email{$svc_forward->srcsvc} = $svc_acct->email; + } + if ( $svc_forward->dstsvc ) { + my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $svc_forward->dstsvc } ); $email{$svc_forward->dstsvc} = $svc_acct->email; } |