diff options
author | ivan <ivan> | 2002-07-07 14:26:17 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-07-07 14:26:17 +0000 |
commit | 9ab3b58fe7df492c72959a40cf9c070e10995333 (patch) | |
tree | b84a4721880c8f6653834a85b7f3509956716087 | |
parent | cec3bd39647288b37e32d63ff17c54917ebfe72f (diff) |
just might work
-rwxr-xr-x | httemplate/search/cust_bill.cgi | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/httemplate/search/cust_bill.cgi b/httemplate/search/cust_bill.cgi index 6e5d20100..a5d3842b9 100755 --- 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 } ); - $sortby = \*invnum_sort; +# $sortby = \*invnum_sort; $total = scalar(@cust_bill); } @@ -166,10 +166,11 @@ if ( $total == 1 ) { </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')), |