diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-02-18 17:10:28 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-02-18 17:10:28 -0800 |
| commit | 0813051e7926734289e81efb468b62940d542627 (patch) | |
| tree | 0dd6727a51e8827e227ac58aabe96bb0bec317a6 /FS | |
| parent | 04fb5a4901bec15d10867a39324b24c71d528cdd (diff) | |
19 digit visa and discover cards
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 2 | ||||
| -rw-r--r-- | FS/FS/payinfo_Mixin.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 4a878f8d2..bb629a97b 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1007,7 +1007,7 @@ sub validate_payment { } $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16}|\d{8,9})$/ + $payinfo =~ /^(\d{13,19}|\d{8,9})$/ or return { 'error' => gettext('invalid_card') }; # . ": ". $self->payinfo $payinfo = $1; diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index c79729a13..3820d7b26 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -218,7 +218,7 @@ sub payinfo_check { $payinfo =~ s/\D//g; $self->payinfo($payinfo); if ( $self->payinfo ) { - $self->payinfo =~ /^(\d{13,16}|\d{8,9})$/ + $self->payinfo =~ /^(\d{13,19}|\d{8,9})$/ or return "Illegal (mistyped?) credit card number (payinfo)"; $self->payinfo($1); validate($self->payinfo) or return "Illegal credit card number"; |