diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-02-12 10:52:13 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-02-12 10:52:13 -0800 |
| commit | 64cd32971341855c3d5e9dee9bf0a1e149eba740 (patch) | |
| tree | e1895566dcaa7f8221f8d2fd764a5de0120e277e | |
| parent | 21ffa4e5b853d777c0956dfa9b8f4984e619a43f (diff) | |
ignore card type for upgrades, RT#32043
| -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; |