[freeside-commits] freeside/FS/FS cust_pay_void.pm,1.15,1.16

[Ivan,,,]

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

Modified Files:
	cust_pay_void.pm 
Log Message:
fix voids of CF transactions, RT#16050

Index: cust_pay_void.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay_void.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -d -r1.15 -r1.16
--- cust_pay_void.pm	22 Jul 2011 17:27:10 -0000	1.15
+++ cust_pay_void.pm	13 Jan 2012 03:37:01 -0000	1.16
@@ -211,7 +211,8 @@
         or return "Illegal (mistyped?) credit card number (payinfo)";
       $self->payinfo($1);
       validate($self->payinfo) or return "Illegal credit card number";
-      return "Unknown card type" if cardtype($self->payinfo) eq "Unknown";
+      return "Unknown card type" if $self->payinfo !~ /^99\d{14}$/ #token
+                                 && cardtype($self->payinfo) eq "Unknown";
     } else {
       $self->payinfo('N/A');
     }