X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_payby.pm;h=fd90597bfd7ba0aec46841990e1c83813358bb23;hb=5f7c4a6025b9e3a49bee72dbc06cac37a45e6f10;hp=7e4a465e70fbbc0acff1f9aabd2ea0432b824e91;hpb=8f35bf476386cfd746ab9fd27d584a4d89d3eeb9;p=freeside.git diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm index 7e4a465e7..fd90597bf 100644 --- a/FS/FS/cust_payby.pm +++ b/FS/FS/cust_payby.pm @@ -349,7 +349,7 @@ sub check { my $payinfo = $self->payinfo; $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16}|\d{8,9})$/ + $payinfo =~ /^(\d{13,19}|\d{8,9})$/ or return gettext('invalid_card'); #. ": ". $self->payinfo; $payinfo = $1; $self->payinfo($payinfo); @@ -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 {