diff options
| author | ivan <ivan> | 2001-11-01 00:16:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-11-01 00:16:24 +0000 |
| commit | 50c494e839fc0dd73ff986d04c54a8d508f5ede0 (patch) | |
| tree | 23f7f64dbb7f1c3f5cb645a9fb911cb7d114a9ea | |
| parent | 38d9d1a9023f3b52f7c88eb0e9b8ef43e6d54a19 (diff) | |
hit the database slightly less. this page still takes forever with lots of
customers.
| -rwxr-xr-x | httemplate/search/cust_main.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/httemplate/search/cust_main.cgi b/httemplate/search/cust_main.cgi index a11892101..a52321de3 100755 --- a/httemplate/search/cust_main.cgi +++ b/httemplate/search/cust_main.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_main.cgi,v 1.12 2001-10-30 14:54:07 ivan Exp $ --> +#<!-- $Id: cust_main.cgi,v 1.13 2001-11-01 00:16:24 ivan Exp $ --> use strict; #use vars qw( $conf %ncancelled_pkgs %all_pkgs $cgi @cust_main $sortby ); @@ -172,9 +172,9 @@ END my($pkg) = $_->part_pkg->pkg; my $comment = $_->part_pkg->comment; my($pkgview) = popurl(2). "/view/cust_pkg.cgi?$pkgnum"; - #my(@cust_svc) = shift @lol_cust_svc; - my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } ); - my($rowspan) = scalar(@cust_svc) || 1; + my @cust_svc = @{shift @lol_cust_svc}; + #my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } ); + my $rowspan = scalar(@cust_svc) || 1; print $n1, qq!<TD ROWSPAN=$rowspan><A HREF="$pkgview"><FONT SIZE=-1>$pkg - $comment</FONT></A></TD>!; my($n2)=''; |