[Rt-commit] r3143 - in rt/branches/QUEBEC-EXPERIMENTAL: . html/Elements

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Jun 13 20:15:22 2005
New Revision: 3143

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/QueryString
Log:
 r4193 at zoq-fot-pik:  chmrr | 2005-06-13 20:14:53 -0400
  * Generalize to work with arrays in %ARGS


Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/QueryString
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/QueryString	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/QueryString	Mon Jun 13 20:15:22 2005
@@ -46,7 +46,12 @@
 <%init>
 my @params;
 while ( (my $key, my $value) = each %ARGS ){
-	push @params, $key."=".$m->interp->apply_escapes($value,'u');
+  if (ref $value eq "ARRAY") {
+    push @params, $key."=".$m->interp->apply_escapes($_, 'u')
+      for @{$value};
+  } else {
+    push @params, $key."=".$m->interp->apply_escapes($value,'u');
+  }
 }
 return(join('&', at params));
 </%init>