projects
/
Business-OnlinePayment-InternetSecure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
227f87a
)
Allow for taxes to be a reference
author
fbriere
<fbriere>
Sat, 18 Feb 2006 00:31:24 +0000
(
00:31
+0000)
committer
fbriere
<fbriere>
Sat, 18 Feb 2006 00:31:24 +0000
(
00:31
+0000)
InternetSecure.pm
patch
|
blob
|
history
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
a7b1d0f
..
9aa2d8d
100755
(executable)
--- 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) {