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-10-29 12:02:31 -0500
commitb72e70605eb51f2336230bbef8bf7f6fd2fe6456 (patch)
tree938d4972c0375829e312cc224dfd1b6ab1b185d7 /FS/FS/cust_main.pm
parent0d9ffbafedc170c79ef5587af8c836579eb1c6fc (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 9c8e374..2136ad2 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);