$content{taxes} = uc $content{taxes};
my %data = $self->get_remap_fields(qw(
- xxxCardNumber card_number
+ xxxCard_Number card_number
xxxName name
xxxCompany company
$data{MerchantNumber} = $self->merchant_id;
- $data{xxxCardNumber} =~ tr/ //d;
+ $data{xxxCard_Number} =~ tr/ //d;
my ($y, $m) = $self->parse_expdate($content{exp_date});
$data{xxxCCYear} = sprintf '%.4u' => $y;
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
- <xxxCardNumber>0000000000000000</xxxCardNumber>
+ <xxxCard_Number>0000000000000000</xxxCard_Number>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>1</CVV2>
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
- <xxxCardNumber>0000000000000000</xxxCardNumber>
+ <xxxCard_Number>0000000000000000</xxxCard_Number>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>0</CVV2>