From dc852f26b535edeab92beeca5af3aad69fdf5243 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Fri, 24 Feb 2017 08:28:12 -0800 Subject: [PATCH] fix fallout from is_tokenized optimizations preventing cards from running --- FS/FS/cust_payby.pm | 2 +- FS/FS/payinfo_Mixin.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm index ab3c41ce0..fd90597bf 100644 --- a/FS/FS/cust_payby.pm +++ b/FS/FS/cust_payby.pm @@ -359,7 +359,7 @@ sub check { # see parallel checks in check_payinfo_cardtype & payinfo_Mixin::payinfo_check my $cardtype = $self->paycardtype; if ( $self->tokenized ) { - $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 { diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 3820d7b26..01b222634 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -199,7 +199,7 @@ sub payinfo_check { # see parallel checks in cust_payby::check & cust_payby::check_payinfo_cardtype if ( $self->tokenized ) { - $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/ ) { $self->set('paycardtype', cardtype($self->paymask)); } else { -- 2.11.0