From a7699a90fb44c8a935c8f980dd8f8350ac9d2d81 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 26 Jan 2016 20:16:02 -0800
Subject: respect card-types config in backend (new customer payment types /
 4.x), RT#39861

---
 FS/FS/cust_payby.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm
index 79a1468..9111fdf 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;
 
-- 
cgit v1.1