diff options
author | ivan <ivan> | 2007-09-17 21:12:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-09-17 21:12:58 +0000 |
commit | 17dfcf3f0af038d47b902ad768e137a42a7a141e (patch) | |
tree | 9522162af3857f4636efca206193403b12a1c79e | |
parent | 637eff4aa1b4d9c7f163579472ca0ed7c24e8075 (diff) |
fix scoping issues with $1 and $2 resulting in payinfo trying getting set to xxEK, thanks to _vlad_ for tracking this down and providing a fix
-rw-r--r-- | FS/FS/cust_main.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index bb3dcdb37..6512888ca 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -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(''); |