From: fbriere <fbriere>
Date: Sat, 18 Feb 2006 00:31:24 +0000 (+0000)
Subject: Allow for taxes to be a reference
X-Git-Tag: V0_01~10
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=aac0b428135cafe2824920e913c319e91fddb0ef;p=Business-OnlinePayment-InternetSecure.git

Allow for taxes to be a reference
---

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) {