From aac0b428135cafe2824920e913c319e91fddb0ef Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Sat, 18 Feb 2006 00:31:24 +0000
Subject: Allow for taxes to be a reference

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

(limited to 'InternetSecure.pm')

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a7b1d0f..9aa2d8d 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -108,9 +108,11 @@ sub prod_string {
 
 	my @flags = ($currency);
 
-	foreach (split ' ' => uc($data{taxes} || '')) {
-		croak "Unknown tax code $_" unless /^(GST|PST|HST)$/;
-		push @flags, $_;
+	foreach (ref $data{taxes} ?
+			@{ $data{taxes} } :
+			split(' ' => $data{taxes} || '')) {
+		croak "Unknown tax code $_" unless /^(GST|PST|HST)$/i;
+		push @flags, uc $_;
 	}
 
 	if ($self->test_transaction) {
-- 
cgit v1.2.1