[freeside-commits] freeside/FS/FS cust_main.pm,1.426,1.427

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv29413

Modified Files:
	cust_main.pm 
Log Message:
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



Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.426
retrieving revision 1.427
diff -u -d -r1.426 -r1.427
--- cust_main.pm	27 May 2009 07:50:39 -0000	1.426
+++ cust_main.pm	10 Jun 2009 00:02:27 -0000	1.427
@@ -6756,7 +6756,7 @@
 
 sub cust_pay_batch {
   my $self = shift;
-  sort { $a->_date <=> $b->_date }
+  sort { $a->paybatchnum <=> $b->paybatchnum }
     qsearch( 'cust_pay_batch', { 'custnum' => $self->custnum } )
 }