X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=InternetSecure.pm;h=3887c8bf8bd2982714456f96ec56c115d5e2ca2e;hb=ec514ddd2bf0251c9223cba84de63a96694a7457;hp=86e16e20409a20f97cc0038141e930f487b668af;hpb=4f7f63abf30377deba653d2704df43c11061bb66;p=Business-OnlinePayment-InternetSecure.git

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;