Added support for <Error>

1 files changed, 3 insertions, 0 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a2c7fab..accc10b 100755
--- 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};