[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi signup.cgi, 1.19, 1.20 agent.cgi, 1.10, 1.11 selfservice.cgi, 1.59, 1.60

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail.420.am:/tmp/cvs-serv27043/fs_selfservice/FS-SelfService/cgi

Modified Files:
	signup.cgi agent.cgi selfservice.cgi 
Log Message:
isracard support in self-service and backend payment processing, RT#13894

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -w -d -r1.59 -r1.60
--- selfservice.cgi	14 Jul 2011 03:46:17 -0000	1.59
+++ selfservice.cgi	2 Aug 2011 20:16:59 -0000	1.60
@@ -493,7 +493,7 @@
 
   my $payinfo = $cgi->param('payinfo');
   $payinfo =~ s/[^\dx]//g;
-  $payinfo =~ /^([\dx]{13,16})$/
+  $payinfo =~ /^([\dx]{13,16}|[\dx]{8,9})$/
     #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
     or die "illegal card"; #!!!
   $payinfo = $1;

Index: signup.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/signup.cgi,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -w -d -r1.19 -r1.20
--- signup.cgi	20 Jul 2011 21:16:18 -0000	1.19
+++ signup.cgi	2 Aug 2011 20:16:59 -0000	1.20
@@ -201,7 +201,7 @@
       my $payinfo = $cgi->param('payinfo');
       $payinfo =~ s/\D//g;
 
-      $payinfo =~ /^(\d{13,16})$/
+      $payinfo =~ /^(\d{13,16}|\d{8,9})$/
         or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
       $payinfo = $1;
       validate($payinfo)

Index: agent.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/agent.cgi,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -d -r1.10 -r1.11
--- agent.cgi	23 Oct 2006 08:30:17 -0000	1.10
+++ agent.cgi	2 Aug 2011 20:16:59 -0000	1.11
@@ -150,7 +150,7 @@
     my $payinfo = $cgi->param('payinfo');
     $payinfo =~ s/\D//g;
 
-    $payinfo =~ /^(\d{13,16})$/
+    $payinfo =~ /^(\d{13,16}|\d{8,9})$/
       or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
     $payinfo = $1;
     validate($payinfo)