From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 24 Feb 2017 16:29:21 +0000 (-0800)
Subject: fix fallout from is_tokenized optimizations preventing cards from running, RT#74657
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=f77e374df4ab10b25cb265e260bc71751d3ec52e

fix fallout from is_tokenized optimizations preventing cards from running, RT#74657
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index cfe93a96a..8cccd1830 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1970,7 +1970,7 @@ sub check {
 
     my $cardtype = $self->paycardtype;
     if ( $payinfo =~ /^99\d{14}$/ ) {
-      $self->('is_tokenized', 'Y'); #so we don't try to do it again
+      $self->set('is_tokenized', 'Y'); #so we don't try to do it again
       if ( $self->paymask =~ /^\d+x/ ) {
         $cardtype = cardtype($self->paymask);
       } else {