s/xxxCardNumber/xxxCard_Number/

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 86e16e2..3887c8b 100755 (executable)
--- 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;

diff --git a/t/20emit.t b/t/20emit.t
index a162f10..6cff57c 100755 (executable)
--- a/t/20emit.t
+++ b/t/20emit.t
@@ -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>