diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-02-12 10:52:11 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-02-12 10:52:11 -0800 |
commit | 22bd37d2213235a66015538fe573175cf30b6624 (patch) | |
tree | 6bb90295f9b628e9b9cb5b5386c5a6b9c2d98e45 /FS/FS/cust_payby.pm | |
parent | 3bfdeb08960dd59c5ad3d202aa8d8c4df10a8a3d (diff) |
ignore card type for upgrades, RT#32043
Diffstat (limited to 'FS/FS/cust_payby.pm')
-rw-r--r-- | FS/FS/cust_payby.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm index a68624229..030aed6f2 100644 --- a/FS/FS/cust_payby.pm +++ b/FS/FS/cust_payby.pm @@ -19,6 +19,7 @@ sub nohistory_fields { ('payinfo', 'paycvv'); } our $ignore_expired_card = 0; our $ignore_banned_card = 0; our $ignore_invalid_card = 0; +our $ignore_cardtype = 0; our $conf; install_callback FS::UID sub { @@ -496,6 +497,8 @@ sub check { sub check_payinfo_cardtype { my $self = shift; + return '' if $ignore_cardtype; + return '' unless $self->payby =~ /^(CARD|CHEK)$/; my $payinfo = $self->payinfo; |