summaryrefslogtreecommitdiff
path: root/FS/FS/cust_main.pm
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2016-10-29 12:02:31 -0500
committerJonathan Prykop <jonathan@freeside.biz>2016-11-29 04:46:34 -0600
commit16498ac263bf5f3e90e23b866706ada768486f40 (patch)
treefb2a53f0045ce165151a3b5bca99bdb4e254bdb2 /FS/FS/cust_main.pm
parent80542a7f5c52ac2f631adc82d0e4326554200793 (diff)
71513: Card tokenization [checkpoint, not ready for backport]
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r--FS/FS/cust_main.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index eac6c75..a2c0ee8 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);