From 2bf4bd2401c76ad784fe2abfa87bb8bacb7b01d2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 10 Jun 2009 00:02:27 +0000
Subject: [PATCH] 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
---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 } )
 }
 
-- 
2.11.0