From d522fe5d5d1898165af4a92151412b2fe943f9ea Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 21 Sep 2010 05:54:24 +0000
Subject: store TxRefNum for Paymentech batch payments, RT#9962

---
 FS/FS/pay_batch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'FS/FS/pay_batch.pm')

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 2561d3d..afff261 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -373,7 +373,7 @@ sub import_results {
       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 )),
       } );
-- 
cgit v1.1