From ec514ddd2bf0251c9223cba84de63a96694a7457 Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Tue, 14 Feb 2006 04:58:48 +0000
Subject: [PATCH] s/xxxCardNumber/xxxCard_Number/

---
 InternetSecure.pm | 4 ++--
 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;
diff --git a/t/20emit.t b/t/20emit.t
index a162f10..6cff57c 100755
--- 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>
-- 
2.11.0