From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 27 Jan 2016 04:15:58 +0000 (-0800)
Subject: respect card-types config in backend (new customer payment types / 4.x), RT#39861
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c4e788ef6f21b5a8582a1005512a15ba2f022945

respect card-types config in backend (new customer payment types / 4.x), RT#39861
---

diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm
index 79a146858..9111fdff1 100644
--- a/FS/FS/cust_payby.pm
+++ b/FS/FS/cust_payby.pm
@@ -496,6 +496,8 @@ sub check {
 sub check_payinfo_cardtype {
   my $self = shift;
 
+  return '' unless $self->payby =~ /^(CARD|CHEK)$/;
+
   my $payinfo = $self->payinfo;
   $payinfo =~ s/\D//g;