From 191aade1149c753b915302d3f2bcc12db84a2358 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 27 Mar 2008 21:05:50 +0000
Subject: [PATCH] fix for ACH info masking

---
 httemplate/view/cust_main/payment_history.html | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html
index 5d91b239f..260d67d2e 100644
--- 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;
-- 
2.11.0