From acdc35f546edd2b02366ee78444f94ed6871bef2 Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Thu, 16 Feb 2006 23:35:10 +0000
Subject: Added support for <Error>

---
 InternetSecure.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'InternetSecure.pm')

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};
-- 
cgit v1.2.1