Added date()

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 85bb05e..0dd4d2a 100755 (executable)
--- 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 (executable)
--- 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,