From 61ec63cfb653b71038ba2c728837e688da365d9d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 27 Mar 2008 21:05:51 +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 703bd91ef..5b105ba18 100644
--- a/httemplate/view/cust_main/payment_history.html
+++ b/httemplate/view/cust_main/payment_history.html
@@ -90,7 +90,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