From 83b363898f0f95a4e85d44b88cba2f0751c27361 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Wed, 9 Feb 2011 23:08:41 +0000
Subject: [PATCH] fix batch payment recording, fallout from #10545

---
 FS/FS/pay_batch.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 7db123c10..9bec2c794 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -352,10 +352,13 @@ sub import_results {
     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) ) {
 
-- 
2.11.0