From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 2 Feb 2016 23:30:13 +0000 (-0800)
Subject: fix fallout with CHEK payments, RT#39861, RT#39863
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=159e3b1170a3011738e0937ea1b155488ee5a83c

fix fallout with CHEK payments, RT#39861, RT#39863
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index a25321a10..3df17bc62 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2132,7 +2132,7 @@ sub check {
 sub check_payinfo_cardtype {
   my $self = shift;
 
-  return '' unless $self->payby =~ /^(CARD|CHEK)$/;
+  return '' unless $self->payby =~ /^(CARD|DCRD)$/;
 
   my $payinfo = $self->payinfo;
   $payinfo =~ s/\D//g;