MV_CREDIT_CARD_INFO_TEMPLATE —
MV_CREDIT_CARD_INFO_TEMPLATE is available in Interchange versions:
4.6.0-5.9.0 (git-head)
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 448 (context shows lines 438-452 in build_cc_info():419)
}
if(my $num = $cardinfo->{MV_CREDIT_CARD_NUMBER}) {
my @quads;
$num =~ s/\D//g;
@quads = $num =~ m{(\d\d\d\d)(\d\d\d\d)(\d\d\d\d)(\d+)};
$cardinfo->{MV_CREDIT_CARD_QUADS} = join "-", @quads;
}
$template = $template ||
$::Variable->{MV_CREDIT_CARD_INFO_TEMPLATE} ||
join("\t", qw(
{MV_CREDIT_CARD_TYPE}
{MV_CREDIT_CARD_NUMBER}
{MV_CREDIT_CARD_EXP_MONTH}/{MV_CREDIT_CARD_EXP_YEAR}