From 5f50c3c62de5b5eecac3844fd838c91ed18bfd39 Mon Sep 17 00:00:00 2001 From: fbriere Date: Fri, 17 Feb 2006 19:21:33 +0000 Subject: [PATCH] Massage infuse() order a bit --- InternetSecure.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/InternetSecure.pm b/InternetSecure.pm index 2b63019..2ad18fd 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -241,17 +241,19 @@ sub parse_response { $self->is_success($code eq '2000' || $code eq '90000' || $code eq '900P1'); $self->infuse($response, + result_code => 'Page', + error_message => 'Verbiage', + authorization => 'ApprovalCode', + avs_response => 'AVSResponseCode', + cvv2_response => 'CVV2ResponseCode', + 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 -- 2.11.0