X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fcust_main.pm;fp=FS%2FFS%2Fcust_main.pm;h=a2c0ee8d4d7aa6f2acc8831a0deb4c4a4dcb0f01;hb=16498ac263bf5f3e90e23b866706ada768486f40;hp=eac6c75753e5c61927562f44a0f6f21a59c25ed4;hpb=80542a7f5c52ac2f631adc82d0e4326554200793;p=freeside.git

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index eac6c7575..a2c0ee8d4 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2128,7 +2128,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);