From 9ab3b58fe7df492c72959a40cf9c070e10995333 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 7 Jul 2002 14:26:17 +0000
Subject: [PATCH] just might work

---
 httemplate/search/cust_bill.cgi | 11 ++++++-----
 1 file 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')),
-- 
2.11.0