fix for ACH info masking

diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html
index 5d91b23..260d67d 100644 (file)
--- a/httemplate/view/cust_main/payment_history.html
+++ b/httemplate/view/cust_main/payment_history.html
@@ -100,7 +100,8 @@
 %  my $payinfo;
 %  if ( $payby eq 'CARD' ) {
 %    $payinfo = $cust_pay->paymask;
-%  } elsif ( $payby eq 'CHEK' && $cust_pay->paymask =~ /^(\d+)\@(\d+)$/ ) {
+%  } elsif ( $payby eq 'CHEK' ) {
+%    my( $account, $aba ) = split('@', $cust_pay->paymask );
 %    $payinfo = "ABA $2, Acct #$1";
 %  } else {
 %    $payinfo = $cust_pay->payinfo;