projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cec3bd3
)
just might work
author
ivan
<ivan>
Sun, 7 Jul 2002 14:26:17 +0000
(14:26 +0000)
committer
ivan
<ivan>
Sun, 7 Jul 2002 14:26:17 +0000
(14:26 +0000)
httemplate/search/cust_bill.cgi
patch
|
blob
|
history
diff --git
a/httemplate/search/cust_bill.cgi
b/httemplate/search/cust_bill.cgi
index
6e5d201
..
a5d3842
100755
(executable)
--- a/
httemplate/search/cust_bill.cgi
+++ b/
httemplate/search/cust_bill.cgi
@@
-103,7
+103,7
@@
if ( $cgi->keywords ) {
$cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/;
my $invnum = $2;
@cust_bill = qsearchs('cust_bill', { 'invnum' => $invnum } );
$cgi->param('invnum') =~ /^\s*(FS-)?(\d+)\s*$/;
my $invnum = $2;
@cust_bill = qsearchs('cust_bill', { 'invnum' => $invnum } );
- $sortby = \*invnum_sort;
+
#
$sortby = \*invnum_sort;
$total = scalar(@cust_bill);
}
$total = scalar(@cust_bill);
}
@@
-166,10
+166,11
@@
if ( $total == 1 ) {
</TR>
END
</TR>
END
- my(%saw, $cust_bill);
- foreach $cust_bill (
- sort $sortby grep(!$saw{$_->invnum}++, @cust_bill)
- ) {
+# my(%saw, $cust_bill);
+# foreach $cust_bill (
+# sort $sortby grep(!$saw{$_->invnum}++, @cust_bill)
+# ) {
+ foreach my $cust_bill ( @cust_bill ) {
my($invnum, $owed, $charged, $date ) = (
$cust_bill->invnum,
sprintf("%.2f", $cust_bill->getfield('owed')),
my($invnum, $owed, $charged, $date ) = (
$cust_bill->invnum,
sprintf("%.2f", $cust_bill->getfield('owed')),