From ec514ddd2bf0251c9223cba84de63a96694a7457 Mon Sep 17 00:00:00 2001 From: fbriere Date: Tue, 14 Feb 2006 04:58:48 +0000 Subject: s/xxxCardNumber/xxxCard_Number/ --- InternetSecure.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'InternetSecure.pm') 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; -- cgit v1.2.1