From b63544b9961e09bfc95908f867993f2c44139b42 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 15 Dec 2001 22:59:35 +0000 Subject: [PATCH] style --- httemplate/view/svc_acct.cgi | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi index 23205ece9..7cebdf8da 100755 --- a/httemplate/view/svc_acct.cgi +++ b/httemplate/view/svc_acct.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; use vars qw( $conf $cgi $domain $query $svcnum $svc_acct $cust_svc $pkgnum @@ -29,15 +29,17 @@ $svcnum = $1; $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum}); die "Unknown svcnum" unless $svc_acct; -$cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); +#false laziness w/all svc_*.cgi +$cust_svc = qsearchs( 'cust_svc' , { 'svcnum' => $svcnum } ); $pkgnum = $cust_svc->getfield('pkgnum'); if ($pkgnum) { - $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); - $custnum=$cust_pkg->getfield('custnum'); + $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); + $custnum = $cust_pkg->custnum; } else { $cust_pkg = ''; $custnum = ''; } +#eofalse $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); die "Unknown svcpart" unless $part_svc; -- 2.11.0