projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
968bee2
)
style
author
ivan
<ivan>
Sat, 15 Dec 2001 22:59:35 +0000
(22:59 +0000)
committer
ivan
<ivan>
Sat, 15 Dec 2001 22:59:35 +0000
(22:59 +0000)
httemplate/view/svc_acct.cgi
patch
|
blob
|
history
diff --git
a/httemplate/view/svc_acct.cgi
b/httemplate/view/svc_acct.cgi
index
23205ec
..
7cebdf8
100755
(executable)
--- a/
httemplate/view/svc_acct.cgi
+++ b/
httemplate/view/svc_acct.cgi
@@
-1,5
+1,5
@@
<%
<%
-# <!-- $Id: svc_acct.cgi,v 1.
8 2001-10-30 14:54:07
ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.
9 2001-12-15 22:59:35
ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $domain $query $svcnum $svc_acct $cust_svc $pkgnum
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;
$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) {
$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 = '';
}
} else {
$cust_pkg = '';
$custnum = '';
}
+#eofalse
$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unknown svcpart" unless $part_svc;
$part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unknown svcpart" unless $part_svc;