import rt 3.0.12

[freeside.git] / rt / html / Elements / QueryString

diff --git a/rt/html/Elements/QueryString b/rt/html/Elements/QueryString
new file mode 100644 (file)
index 0000000..36c4679
--- /dev/null
+++ b/rt/html/Elements/QueryString
@@ -0,0 +1,7 @@
+<%init>
+my @params;
+while ( (my $key, my $value) = each %ARGS ){
+       push @params, $key."=".$m->interp->apply_escapes($value,'u');
+}
+return(join('&',@params));
+</%init>