From 97761642c6eb4eef9224af8aed6b29bd3b1f2a9b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 7 Oct 2005 04:48:45 +0000
Subject: [PATCH] fix on-demand credit cards not being masked in UI.  i believe
 huntsburg is in the doghouse for this one :)

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 92eedd8fb..b85dff4a5 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -244,7 +244,7 @@ sub paymask {
   if ( defined($value) && !$self->is_encrypted($value)) {
     my $payinfo = $value;
     my $payby = $self->payby;
-    if ($payby eq 'CARD' || $payby eq 'DCARD') { # Credit Cards (Show last four)
+    if ($payby eq 'CARD' || $payby eq 'DCRD') { # Credit Cards (Show last four)
       $paymask = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
     } elsif ($payby eq 'CHEK' ||
              $payby eq 'DCHK' ) { # Checks (Show last 2 @ bank)
-- 
2.11.0