[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi selfservice.cgi, 1.21.2.11, 1.21.2.12

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	selfservice.cgi 
Log Message:
fix the same problem with processing payments & masked ACH amounts, RT#6374

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.21.2.11
retrieving revision 1.21.2.12
diff -u -d -r1.21.2.11 -r1.21.2.12
--- selfservice.cgi	1 Oct 2009 00:52:17 -0000	1.21.2.11
+++ selfservice.cgi	4 Oct 2009 23:36:07 -0000	1.21.2.12
@@ -416,14 +416,16 @@
   my $amount = $1;
 
   my $payinfo1 = $cgi->param('payinfo1');
-  $payinfo1=~ /^(\d+)$/
+  $payinfo1 =~ s/[^\dx]//g;
+  $payinfo1 =~ /^([\dx]+)$/
     or die "illegal account"; #!!!
-  $payinfo1= $1;
+  $payinfo1 = $1;
 
   my $payinfo2 = $cgi->param('payinfo2');
-  $payinfo2=~ /^(\d+)$/
+  $payinfo2 =~ s/[^\dx]//g;
+  $payinfo2 =~ /^([\dx]+)$/
     or die "illegal ABA/routing code"; #!!!
-  $payinfo2= $1;
+  $payinfo2 = $1;
 
   $cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
   my $payname = $1;