diff options
| -rwxr-xr-x | InternetSecure.pm | 6 | ||||
| -rwxr-xr-x | t/30parse.t | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 85bb05e..0dd4d2a 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -38,6 +38,7 @@ sub set_defaults { $self->build_subs(qw( receipt_number sales_number + date card_type total_amount avs_response cvv2_response @@ -251,6 +252,7 @@ sub parse_response { $self->infuse($response, qw( ReceiptNumber receipt_number SalesOrderNumber sales_number + Date date CardType card_type Page result_code ApprovalCode authorization @@ -470,6 +472,10 @@ InternetSecure transactions. Sales order number of this transaction. This is a number, unique to each merchant, which is incremented by 1 each time. +=item date() + +Date and time of the transaction. Format is C<YYYY/MM/DD hh:mm:ss>. + =item total_amount() Total amount billed for this order, including taxes. diff --git a/t/30parse.t b/t/30parse.t index dbdeec0..cfc2b55 100755 --- a/t/30parse.t +++ b/t/30parse.t @@ -1,6 +1,7 @@ use constant FIELDS => qw( result_code authorization error_message receipt_number sales_number + date card_type avs_response cvv2_response total_amount @@ -14,6 +15,7 @@ use constant RESULTS => ( error_message => 'Test Approved', receipt_number => '1096019995.5012', sales_number => 0, + date => '2003/12/17 09:59:58', card_type => undef, avs_response => undef, cvv2_response => undef, @@ -26,6 +28,7 @@ use constant RESULTS => ( error_message => 'Real error message', receipt_number => '1096021915.5853', sales_number => 729, + date => '2003/12/17 10:31:58', card_type => 'Visa', avs_response => undef, cvv2_response => undef, |