From 4e53412a879f819c9af5711e12dee73ba52d268f Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Thu, 16 Feb 2006 23:46:45 +0000
Subject: [PATCH] Simplify tax/currency initialization

---
 InternetSecure.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 65a9112..bb052b9 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -148,13 +148,11 @@ sub to_xml {
 	croak 'Unsupported action'
 		unless $content{action} =~ /^Normal Authori[zs]ation$/i;
 	
-	$content{currency} ||= 'CAD';
-	$content{currency} = uc $content{currency};
+	$content{currency} = uc($content{currency} || 'CAD');
 	croak "Unknown currency code ", $content{currency}
 		unless $content{currency} =~ /^(CAD|USD)$/;
 	
-	$content{taxes} ||= '';
-	$content{taxes} = uc $content{taxes};
+	$content{taxes} = uc($content{taxes} || '');
 
 	my %data = $self->get_remap_fields(qw(
 			xxxCard_Number		card_number
-- 
2.11.0