X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=2136ad285dd74fdbc2f7c1dab2f2eed5681a57b2;hp=9c8e37499d647acd56ce8d9edb02fdfb7a4f54b6;hb=b72e70605eb51f2336230bbef8bf7f6fd2fe6456;hpb=0d9ffbafedc170c79ef5587af8c836579eb1c6fc

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 9c8e37499..2136ad285 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1895,7 +1895,7 @@ sub check_payinfo_cardtype {
   my $payinfo = $self->payinfo;
   $payinfo =~ s/\D//g;
 
-  return '' if $payinfo =~ /^99\d{14}$/; #token
+  return '' if $self->tokenized($payinfo); #token
 
   my %bop_card_types = map { $_=>1 } values %{ card_types() };
   my $cardtype = cardtype($payinfo);