CREDIT_CARDS_ACCEPTED —
Interchange 5.9.0:
Source: lib/Vend/Payment/PaypalExpress.pm
Line 925 (context shows lines 915-929 in paypalexpress():501)
$::Scratch->{'token'} = $result{'Token'};
if (!$result{'Token'}) {
if ($result{'Ack'} eq 'Failure') {
$::Session->{'errors'}{'PaypalExpress'} = $result{'Errors'}{'LongMessage'} \
if ($result{'Errors'} !~ /ARRAY/);
for my $i (0 .. 3) {
$::Session->{'errors'}{'PaypalExpress'} .= " $result{'Errors'}[$i]{'LongMessage'}" \
if ($result{'Errors'} =~ /ARRAY/);
}
}
else {
my $accepted = uc($::Variable->{CREDIT_CARDS_ACCEPTED});
$::Session->{'errors'}{'PaypalExpress'} = errmsg("Paypal is currently \
unavailable - please use our secure payment system instead. We accept $accepted cards");
}
return $Tag->deliver({ location => $checkouturl })
}