[error std_label="Credit Card Information" name=mv_credit_card_valid] [calc]
my $accepted = $Variable->{CREDIT_CARDS_ACCEPTED};
my (@out);
my (@cc);
my $out;
push @cc, 'visa' if $accepted =~ /visa/;
push @cc, 'mc' if $accepted =~ /mc/;
push @cc, 'disc' if $accepted =~ /discover/;
push @cc, 'amex' if $accepted =~ /amex/;
for (@cc) {
push @out, qq{ };
}
return join ' ', @out;
[/calc]
|