From: ivan <ivan>
Date: Wed, 10 Jun 2009 00:02:27 +0000 (+0000)
Subject: eliminate harmless
X-Git-Tag: root_of_svc_elec_features~1140
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=2bf4bd2401c76ad784fe2abfa87bb8bacb7b01d2

eliminate harmless

  Argument "" isn't numeric in numeric comparison (<=>) at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 6759.

warning, sort batched payments on a column that actually exists
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 72b84504f..124cbccca 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -6756,7 +6756,7 @@ Returns all batched payments (see L<FS::cust_pay_void>) for this customer.
 
 sub cust_pay_batch {
   my $self = shift;
-  sort { $a->_date <=> $b->_date }
+  sort { $a->paybatchnum <=> $b->paybatchnum }
     qsearch( 'cust_pay_batch', { 'custnum' => $self->custnum } )
 }