From 4704b155c817d88cda363550b9c0c0e05eb80cb0 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 17 Jul 1999 10:38:52 +0000 Subject: scott nelson noticed this mod_perl-triggered bug and gave me a great bugreport at the last rhythmethod --- htdocs/search/cust_pkg.cgi | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'htdocs/search/cust_pkg.cgi') diff --git a/htdocs/search/cust_pkg.cgi b/htdocs/search/cust_pkg.cgi index c48a3c703..033bc2585 100755 --- a/htdocs/search/cust_pkg.cgi +++ b/htdocs/search/cust_pkg.cgi @@ -1,11 +1,15 @@ #!/usr/bin/perl -Tw # -# $Id: cust_pkg.cgi,v 1.8 1999-02-09 09:22:57 ivan Exp $ +# $Id: cust_pkg.cgi,v 1.9 1999-07-17 10:38:52 ivan Exp $ # # based on search/svc_acct.cgi ivan@sisd.com 98-jul-17 # # $Log: cust_pkg.cgi,v $ -# Revision 1.8 1999-02-09 09:22:57 ivan +# Revision 1.9 1999-07-17 10:38:52 ivan +# scott nelson noticed this mod_perl-triggered bug and +# gave me a great bugreport at the last rhythmethod +# +# Revision 1.8 1999/02/09 09:22:57 ivan # visual and bugfixes # # Revision 1.7 1999/02/07 09:59:37 ivan @@ -51,7 +55,7 @@ if ( $query eq 'pkgnum' ) { @cust_pkg=qsearch('cust_pkg',{}); } elsif ( $query eq 'APKG_pkgnum' ) { $sortby=\*pkgnum_sort; - + @cust_pkg=(); #perhaps this should go in cust_pkg as a qsearch-like constructor? my($cust_pkg); foreach $cust_pkg (qsearch('cust_pkg',{})) { -- cgit v1.2.1