[freeside-commits] freeside/FS/FS cust_pay_batch.pm,1.18,1.19

Jeff Finucane,420,, jeff at wavetail.420.am
Tue Jan 9 18:41:35 PST 2007


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv6116

Modified Files:
	cust_pay_batch.pm 
Log Message:
E-xactBatch masks card numbers

Index: cust_pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay_batch.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- cust_pay_batch.pm	19 Dec 2006 10:02:06 -0000	1.18
+++ cust_pay_batch.pm	10 Jan 2007 02:41:33 -0000	1.19
@@ -377,8 +377,11 @@
 
     $hook = sub {
       my $hash = shift;
+      my $cpb = shift;
       $hash->{'paid'} = sprintf("%.2f", $hash->{'paid'}); #hmmmm
       $hash->{'_date'} = time;  # got a better one?
+      $hash->{'payinfo'} = $cpb->{'payinfo'}
+        if( substr($hash->{'payinfo'}, -4) eq substr($cpb->{'payinfo'}, -4) );
     };
 
     $approved_condition = sub {
@@ -527,7 +530,7 @@
 
     my $new_cust_pay_batch = new FS::cust_pay_batch { $cust_pay_batch->hash };
 
-    &{$hook}(\%hash);
+    &{$hook}(\%hash, $cust_pay_batch->hashref);
 
     if ( &{$approved_condition}(\%hash) ) {
 



More information about the freeside-commits mailing list