From c5588173be7a36ee82a037e3809e6ecc7f14917f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 13 Jan 2012 03:37:02 +0000
Subject: [PATCH] fix voids of CF transactions, RT#16050

---
 FS/FS/cust_pay_void.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm
index 1e22e1c09..f1193cd24 100644
--- a/FS/FS/cust_pay_void.pm
+++ b/FS/FS/cust_pay_void.pm
@@ -211,7 +211,8 @@ sub check {
         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');
     }
-- 
2.11.0