[freeside-commits] freeside/FS/FS pay_batch.pm,1.25,1.26

[Mark Wells]

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

Modified Files:
	pay_batch.pm 
Log Message:
store TxRefNum for Paymentech batch payments, RT#9962

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -w -d -r1.25 -r1.26
--- pay_batch.pm	24 Aug 2010 03:03:09 -0000	1.25
+++ pay_batch.pm	21 Sep 2010 05:54:24 -0000	1.26
@@ -373,7 +373,7 @@
       my $cust_pay = new FS::cust_pay ( {
         'custnum'  => $custnum,
 	'payby'    => $payby,
-        'paybatch' => $self->batchnum,
+        'paybatch' => $hash{'paybatch'} || $self->batchnum,
         'payinfo'  => ( $hash{'payinfo'} || $cust_pay_batch->payinfo ),
         map { $_ => $hash{$_} } (qw( paid _date )),
       } );