From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 12 Jun 2012 08:13:09 +0000 (-0700)
Subject: slightly more efficient cust_bill->previous
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6f2740efafc72c4a13d0670a76201eaa22784abe

slightly more efficient cust_bill->previous
---

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 7d7d3636e..a70f9756b 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -388,8 +388,10 @@ sub previous {
   my $self = shift;
   my $total = 0;
   my @cust_bill = sort { $a->_date <=> $b->_date }
-    grep { $_->owed != 0 && $_->_date < $self->_date }
-      qsearch( 'cust_bill', { 'custnum' => $self->custnum } ) 
+    grep { $_->owed != 0 }
+      qsearch( 'cust_bill', { 'custnum' => $self->custnum,
+                              '_date'   => { op=>'<', value=>$self->_date },
+                            } ) 
   ;
   foreach ( @cust_bill ) { $total += $_->owed; }
   $total, @cust_bill;