- my $payinfo = $self->payinfo;
- my $cardtype = cardtype($payinfo);
- $cardtype = 'Tokenized' if $payinfo !~ /^99\d{14}$/;
- $self->set('paycardtype', $cardtype);
+ if ( $self->payinfo =~ /^99\d{14}$/ && ! $self->paycardtype ) {
+ return "paycardtype required (cannot be derived from a token)";
+ } else {
+ $self->set('paycardtype', cardtype($self->payinfo));
+ }