From 159e3b1170a3011738e0937ea1b155488ee5a83c Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 2 Feb 2016 15:30:13 -0800 Subject: [PATCH] fix fallout with CHEK payments, RT#39861, RT#39863 --- 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 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; -- 2.11.0