diff options
author | ivan <ivan> | 2002-10-13 01:05:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-10-13 01:05:29 +0000 |
commit | ec8b028d52fea91a4f970c0be377eaccde682997 (patch) | |
tree | cc082b88754050b7610f7a21d71978a756b8d6eb | |
parent | dcef219e16a1b4b6d552b8ea2ae17fd58fb2be3a (diff) |
bug fix in new ACH code
-rw-r--r-- | FS/FS/cust_bill.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index e875f5229..bdd60dbe0 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -669,7 +669,7 @@ sub realtime_bop { $cust_main->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; $content{expiration} = "$2/$1"; } elsif ( $method eq 'ECHECK' ) { - my($account_number,$routing_code) = $cust_main->payinfo + my($account_number,$routing_code) = $cust_main->payinfo; ( $content{account_number}, $content{routing_code} ) = split('@', $cust_main->payinfo); $content{bank_name} = $cust_main->payname; @@ -1074,7 +1074,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.48 2002-10-12 10:15:55 ivan Exp $ +$Id: cust_bill.pm,v 1.49 2002-10-13 01:05:29 ivan Exp $ =head1 BUGS |