MV_CREDIT_CARD_INFO_TEMPLATE —
MV_CREDIT_CARD_INFO_TEMPLATE is available in Interchange versions:
4.8.0-5.7.0 (cvs-head)
Interchange 5.7.0:
Source: lib/Vend/Order.pm (rev. 2.103 from Sat Oct 25 00:01:32 2008)
Line 444 (context shows lines 434-448 in build_cc_info():415)
}
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}