From: ivan <ivan>
Date: Tue, 19 Nov 2002 10:02:22 +0000 (+0000)
Subject: silly regex bug parsing echeck info
X-Git-Tag: freeside_1_4_1beta6~53
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=1931a1946ab87d7f4638fbe343ed669de64406f4;p=freeside.git

silly regex bug parsing echeck info
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index e528ee322..10f4f9291 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -685,7 +685,7 @@ sub check {
   } elsif ( $self->payby eq 'CHEK' ) {
 
     my $payinfo = $self->payinfo;
-    $payinfo =~ s/[\D\@]//g;
+    $payinfo =~ s/[^\d\@]//g;
     $payinfo =~ /^(\d+)\@(\d{9})$/ or return 'invalid echeck account@aba';
     $payinfo = "$1\@$2";
     $self->payinfo($payinfo);