From 70860c963fab13b6c28e998519936fcb0af5d083 Mon Sep 17 00:00:00 2001 From: fbriere Date: Fri, 17 Feb 2006 01:13:58 +0000 Subject: [PATCH] Added date() --- InternetSecure.pm | 6 ++++++ t/30parse.t | 3 +++ 2 files changed, 9 insertions(+) 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. + =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, -- 2.11.0