Massage infuse() order a bit

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 2b63019..2ad18fd 100755 (executable)
--- 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 <Verbiage>