diff options
| -rwxr-xr-x | InternetSecure.pm | 6 |
1 files 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 |