projects
/
Business-OnlinePayment-InternetSecure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Massage infuse() order a bit
[Business-OnlinePayment-InternetSecure.git]
/
InternetSecure.pm
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,
$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',
receipt_number => 'ReceiptNumber',
sales_number => 'SalesOrderNumber',
+
date => 'Date',
cardholder => 'xxxName',
card_type => 'CardType',
date => 'Date',
cardholder => 'xxxName',
card_type => 'CardType',
- result_code => 'Page',
- authorization => 'ApprovalCode',
- error_message => 'Verbiage',
total_amount => 'TotalAmount',
total_amount => 'TotalAmount',
- avs_response => 'AVSResponseCode',
- cvv2_response => 'CVV2ResponseCode',
);
# Completely undocumented field that sometimes override <Verbiage>
);
# Completely undocumented field that sometimes override <Verbiage>