From: ivan <ivan>
Date: Sun, 4 Oct 2009 23:36:07 +0000 (+0000)
Subject: fix the same problem with processing payments & masked ACH amounts, RT#6374
X-Git-Tag: freeside_1_7_4rc3~3
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=70bb66ba600f8712aa29b8bd7dae7179d5508e90;p=freeside.git

fix the same problem with processing payments & masked ACH amounts, RT#6374
---

diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index 749a2e572..b2297f98d 100644
--- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@ -416,14 +416,16 @@ sub ach_payment_results {
   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;