From f1ae4cb3c4c970037869d54c7fb2f00a180a2cd1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 2 Aug 2011 20:17:02 +0000
Subject: isracard support in self-service and backend payment processing,
 RT#13894

---
 httemplate/misc/process/payment.cgi | 2 +-
 httemplate/search/cust_main.cgi     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate')

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'}),
-- 
cgit v1.2.1