diff options
| author | ivan <ivan> | 2011-07-12 03:23:18 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-07-12 03:23:18 +0000 |
| commit | 8e56220ec04b8211303b85744df35a9ef38e6ebf (patch) | |
| tree | 03922c89d4840d6b8e2b886ec233557df24c94f1 /FS/FS | |
| parent | 45191e95387a76195ec735dddd27be8ed7d2b8c7 (diff) | |
add support for Isracards w/Business::OnlinePayment 0.32_01+, RT#13529
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 2 | ||||
| -rw-r--r-- | FS/FS/cust_pay_void.pm | 2 | ||||
| -rw-r--r-- | FS/FS/payinfo_Mixin.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 4265516..95ade20 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1853,7 +1853,7 @@ sub check { my $payinfo = $self->payinfo; $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16})$/ + $payinfo =~ /^(\d{13,16}|\d{8,9})$/ or return gettext('invalid_card'); # . ": ". $self->payinfo; $payinfo = $1; $self->payinfo($payinfo); diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index 3a30acb..0b89591 100644 --- a/FS/FS/cust_pay_void.pm +++ b/FS/FS/cust_pay_void.pm @@ -207,7 +207,7 @@ sub check { $payinfo =~ s/\D//g; $self->payinfo($payinfo); if ( $self->payinfo ) { - $self->payinfo =~ /^(\d{13,16})$/ + $self->payinfo =~ /^(\d{13,16}|\d{8,9})$/ or return "Illegal (mistyped?) credit card number (payinfo)"; $self->payinfo($1); validate($self->payinfo) or return "Illegal credit card number"; diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 9995183..83425dd 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -196,7 +196,7 @@ sub payinfo_check { $payinfo =~ s/\D//g; $self->payinfo($payinfo); if ( $self->payinfo ) { - $self->payinfo =~ /^(\d{13,16})$/ + $self->payinfo =~ /^(\d{13,16}|\d{8,9})$/ or return "Illegal (mistyped?) credit card number (payinfo)"; $self->payinfo($1); validate($self->payinfo) or return "Illegal credit card number"; |