X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=InternetSecure.pm;h=bb052b93e774535bc9605b74bcf4b7101b103f91;hb=4e53412a879f819c9af5711e12dee73ba52d268f;hp=65a9112ec759c3d1ac8bbe36c8bb8bdbd9c85bbd;hpb=aeefaf19907da445544d0eadc9c0e0e62f7b3d5d;p=Business-OnlinePayment-InternetSecure.git

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