summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2002-07-07 14:26:17 +0000
committerivan <ivan>2002-07-07 14:26:17 +0000
commit9ab3b58fe7df492c72959a40cf9c070e10995333 (patch)
treeb84a4721880c8f6653834a85b7f3509956716087
parentcec3bd39647288b37e32d63ff17c54917ebfe72f (diff)
just might work
-rwxr-xr-xhttemplate/search/cust_bill.cgi11
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')),