[freeside-commits] freeside/FS/FS pay_batch.pm,1.26.2.4,1.26.2.5

Mark Wells mark at wavetail.420.am
Wed Feb 9 15:09:09 PST 2011


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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	pay_batch.pm 
Log Message:
fix batch payment recording, fallout from #10545

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.26.2.4
retrieving revision 1.26.2.5
diff -u -w -d -r1.26.2.4 -r1.26.2.5
--- pay_batch.pm	18 Jan 2011 00:32:57 -0000	1.26.2.4
+++ pay_batch.pm	9 Feb 2011 23:09:06 -0000	1.26.2.5
@@ -352,10 +352,13 @@
     my $custnum = $cust_pay_batch->custnum,
     my $payby = $cust_pay_batch->payby,
 
-    my $new_cust_pay_batch = new FS::cust_pay_batch { $cust_pay_batch->hash };
-
     &{$hook}(\%hash, $cust_pay_batch->hashref);
 
+    my $new_cust_pay_batch = new FS::cust_pay_batch { 
+      $cust_pay_batch->hash, 
+      %hash 
+    };
+
     my $error = '';
     if ( &{$approved_condition}(\%hash) ) {
 



More information about the freeside-commits mailing list