Added support for <Error>

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a2c7fab..accc10b 100755 (executable)
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -264,6 +264,9 @@ sub parse_response {
                        CVV2ResponseCode        cvv2_response
                ));
        
+       # Completely undocumented field that sometimes override <Verbiage>
+       $self->error_message($response->{Error}) if $response->{Error};
+       
        $self->card_type(CARD_TYPES->{$self->card_type});
        
        $self->{products_raw} = $response->{Products};

diff --git a/t/30parse.t b/t/30parse.t
index 8780731..2917a47 100755 (executable)
--- a/t/30parse.t
+++ b/t/30parse.t
@@ -1,13 +1,14 @@
-use Test::More tests => 1 + 2 * 5;
+use Test::More tests => 1 + 2 * 6;
 
 BEGIN { use_ok('Business::OnlinePayment') };
 
 
-use constant FIELDS => (qw( result_code authorization total_amount ));
+use constant FIELDS => (qw( result_code authorization total_amount
+                               error_message ));
 
 use constant RESULTS => (
-               [ 1, '2000', 'T00000', 3.88 ],
-               [ 0, '98e05', undef, 3.88 ],
+               [ 1, '2000', 'T00000', 3.88, 'Test Approved' ],
+               [ 0, '98e05', undef, 3.88, 'Real error message' ],
        );
 
 
@@ -111,6 +112,7 @@ __DATA__
   <Page>98e05</Page>
   <ApprovalCode />
   <Verbiage>Incorrect Card Number - Please Retry</Verbiage>
+  <Error>Real error message</Error>
   <TotalAmount>3.88</TotalAmount>
   <Products>
     <product>