+# vim:set syntax=perl:
+
use constant FIELDS => qw(
result_code authorization error_message
- receipt_number order_number
+ receipt_number sales_number
+ date
card_type
avs_response cvv2_response
total_amount
is_success => 1,
result_code => '2000',
authorization => 'T00000',
- error_message => 'Test Approved',
+ error_message => undef,
receipt_number => '1096019995.5012',
- order_number => 0,
+ sales_number => 0,
+ date => '2003/12/17 09:59:58',
card_type => undef,
avs_response => undef,
cvv2_response => undef,
total_amount => 3.88,
+ uuid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
+ guid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
},
{
is_success => 0,
authorization => undef,
error_message => 'Real error message',
receipt_number => '1096021915.5853',
- order_number => 729,
+ sales_number => 729,
+ date => '2003/12/17 10:31:58',
card_type => 'Visa',
avs_response => undef,
cvv2_response => undef,
total_amount => 3.88,
+ uuid => undef,
+ guid => undef,
},
);
<DoubleColonProducts>3.10::1::001::Test Product 1::{USD}{GST}{TEST}|0.20::1::010::Test Product 2::{GST}{TEST}|0.33::1::020::Test Product 3::{GST}{TEST}|0.25::1::GST::Canadian GST Charged::{TAX}{CALCULATED}</DoubleColonProducts>
<AVSResponseCode />
<CVV2ResponseCode />
+ <GUID>f81d4fae-7dec-11d0-a765-00a0c91e6bf6</GUID>
</TranxResponse>
<?xml version="1.0" encoding="UTF-8"?>