diff options
| -rwxr-xr-x | InternetSecure.pm | 12 |
1 files 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 <Verbiage> |