put batch card numbers/masks in cust_pay so they can be refunded, patch from peter...

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index d73c052..3abb06d 100644 (file)
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -362,7 +362,8 @@ sub import_results {
         'custnum'  => $custnum,
        'payby'    => $payby,
         'paybatch' => $self->batchnum,
-        map { $_ => $hash{$_} } (qw( paid _date payinfo )),
+        'payinfo'  => ( $hash{'payinfo'} || $cust_pay_batch->payinfo ),
+        map { $_ => $hash{$_} } (qw( paid _date )),
       } );
       $error = $cust_pay->insert;
       if ( $error ) {