diff options
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/misc/process/payment.cgi | 2 | ||||
| -rwxr-xr-x | httemplate/search/cust_main.cgi | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi index c1c9071f9..9c8512785 100644 --- a/httemplate/misc/process/payment.cgi +++ b/httemplate/misc/process/payment.cgi @@ -91,7 +91,7 @@ if ( $payby eq 'CHEK' ) { $payinfo = $cust_main->payinfo; } $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16})$/ + $payinfo =~ /^(\d{13,16}|\d{8,9})$/ or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo; $payinfo = $1; validate($payinfo) diff --git a/httemplate/search/cust_main.cgi b/httemplate/search/cust_main.cgi index 6ebc55bb1..5c1fb4100 100755 --- a/httemplate/search/cust_main.cgi +++ b/httemplate/search/cust_main.cgi @@ -555,7 +555,7 @@ sub cardsearch { my($card)=$cgi->param('card'); $card =~ s/\D//g; - $card =~ /^(\d{13,16})$/ or errorpage(emt("Illegal card number")); + $card =~ /^(\d{13,16}|\d{8,9})$/ or errorpage(emt("Illegal card number")); my($payinfo)=$1; [ qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'}), |