X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_payby.pm;h=030aed6f278ae5e310437c596583df03ce231b4b;hp=a6862422961ffbc618746f3d7a72df6bd69e2ebc;hb=22bd37d2213235a66015538fe573175cf30b6624;hpb=3bfdeb08960dd59c5ad3d202aa8d8c4df10a8a3d

diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm
index a68624229..030aed6f2 100644
--- a/FS/FS/cust_payby.pm
+++ b/FS/FS/cust_payby.pm
@@ -19,6 +19,7 @@ sub nohistory_fields { ('payinfo', 'paycvv'); }
 our $ignore_expired_card = 0;
 our $ignore_banned_card = 0;
 our $ignore_invalid_card = 0;
+our $ignore_cardtype = 0;
 
 our $conf;
 install_callback FS::UID sub { 
@@ -496,6 +497,8 @@ sub check {
 sub check_payinfo_cardtype {
   my $self = shift;
 
+  return '' if $ignore_cardtype;
+
   return '' unless $self->payby =~ /^(CARD|CHEK)$/;
 
   my $payinfo = $self->payinfo;