[freeside-commits] freeside/FS/FS pay_batch.pm,1.20,1.21

[Ivan,,,]

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

Modified Files:
	pay_batch.pm 
Log Message:
put batch card numbers/masks in cust_pay so they can be refunded, patch from peter loeppky, RT#8776

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -d -r1.20 -r1.21
--- pay_batch.pm	16 Jun 2010 02:19:13 -0000	1.20
+++ pay_batch.pm	23 Jul 2010 23:16:18 -0000	1.21
@@ -362,7 +362,8 @@
         '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 ) {