From ba77e0adce510afadfa3d926637efe487e889fd1 Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Fri, 17 Feb 2006 19:19:07 +0000
Subject: [PATCH] Reverse the order of infuse() map

---
 InternetSecure.pm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/InternetSecure.pm b/InternetSecure.pm
index cf0eec1..2b63019 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -217,7 +217,7 @@ sub infuse {
 
 	while (my ($k, $v) = each %map) {
 		no strict 'refs';
-		$self->$v($data->{$k});
+		$self->$k($data->{$v});
 	}
 }
 
@@ -240,19 +240,19 @@ sub parse_response {
 	my $code = $self->result_code($response->{Page});
 	$self->is_success($code eq '2000' || $code eq '90000' || $code eq '900P1');
 
-	$self->infuse($response, qw(
-			ReceiptNumber		receipt_number
-			SalesOrderNumber	sales_number
-			Date			date
-			xxxName			cardholder
-			CardType		card_type
-			Page			result_code
-			ApprovalCode		authorization
-			Verbiage		error_message
-			TotalAmount		total_amount
-			AVSResponseCode		avs_response
-			CVV2ResponseCode	cvv2_response
-		));
+	$self->infuse($response,
+			receipt_number	=> 'ReceiptNumber',
+			sales_number	=> 'SalesOrderNumber',
+			date		=> 'Date',
+			cardholder	=> 'xxxName',
+			card_type	=> 'CardType',
+			result_code	=> 'Page',
+			authorization	=> 'ApprovalCode',
+			error_message	=> 'Verbiage',
+			total_amount	=> 'TotalAmount',
+			avs_response	=> 'AVSResponseCode',
+			cvv2_response	=> 'CVV2ResponseCode',
+			);
 	
 	# Completely undocumented field that sometimes override <Verbiage>
 	$self->error_message($response->{Error}) if $response->{Error};
-- 
2.20.1