diff options
| -rwxr-xr-x | InternetSecure.pm | 4 | ||||
| -rwxr-xr-x | t/20emit.t | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 86e16e2..3887c8b 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -157,7 +157,7 @@ sub to_xml { $content{taxes} = uc $content{taxes}; my %data = $self->get_remap_fields(qw( - xxxCardNumber card_number + xxxCard_Number card_number xxxName name xxxCompany company @@ -182,7 +182,7 @@ sub to_xml { $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; @@ -86,7 +86,7 @@ __DATA__ <?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> @@ -115,7 +115,7 @@ __DATA__ <?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> |