projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
38d9d1a
)
hit the database slightly less. this page still takes forever with lots of
author
ivan
<ivan>
Thu, 1 Nov 2001 00:16:24 +0000
(
00:16
+0000)
committer
ivan
<ivan>
Thu, 1 Nov 2001 00:16:24 +0000
(
00:16
+0000)
customers.
httemplate/search/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/search/cust_main.cgi
b/httemplate/search/cust_main.cgi
index
a118921
..
a52321d
100755
(executable)
--- a/
httemplate/search/cust_main.cgi
+++ b/
httemplate/search/cust_main.cgi
@@
-1,5
+1,5
@@
<%
<%
-#<!-- $Id: cust_main.cgi,v 1.1
2 2001-10-30 14:54:07
ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.1
3 2001-11-01 00:16:24
ivan Exp $ -->
use strict;
#use vars qw( $conf %ncancelled_pkgs %all_pkgs $cgi @cust_main $sortby );
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($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)='';
print $n1, qq!<TD ROWSPAN=$rowspan><A HREF="$pkgview"><FONT SIZE=-1>$pkg - $comment</FONT></A></TD>!;
my($n2)='';