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

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 0279d17..a15a369 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1872,7 +1872,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;