fix scoping issues with $1 and $2 resulting in payinfo trying getting set to xxEK...
authorivan <ivan>
Mon, 17 Sep 2007 21:12:58 +0000 (21:12 +0000)
committerivan <ivan>
Mon, 17 Sep 2007 21:12:58 +0000 (21:12 +0000)
FS/FS/cust_main.pm

index bb3dcdb..6512888 100644 (file)
@@ -1439,10 +1439,11 @@ sub check {
     $payinfo =~ s/[^\d\@]//g;
     if ( $conf->exists('echeck-nonus') ) {
       $payinfo =~ /^(\d+)\@(\d+)$/ or return 'invalid echeck account@aba';
+      $payinfo = "$1\@$2";
     } else {
       $payinfo =~ /^(\d+)\@(\d{9})$/ or return 'invalid echeck account@aba';
+      $payinfo = "$1\@$2";
     }
-    $payinfo = "$1\@$2";
     $self->payinfo($payinfo);
     $self->paycvv('');