Putting 4.2.0 on top of 4.0.17

[usit-rt.git] / share / html / Elements / QueryString

diff --git a/share/html/Elements/QueryString b/share/html/Elements/QueryString
index bb5cf91028ac6ad6f74823eb031a432fbca84e98..f28c2020f5725e1755a6857b26a68bc1cecd2fee 100644 (file)
--- a/share/html/Elements/QueryString
+++ b/share/html/Elements/QueryString
@@ -54,11 +54,12 @@ for my $key (sort keys %ARGS) {
     if( UNIVERSAL::isa( $value, 'ARRAY' ) ) {
         push @params,
             map $key ."=". $m->interp->apply_escapes( $_, 'u' ),
+            map defined $_? $_ : '',
                 @$value;
     } else {
         push @params, $key ."=". $m->interp->apply_escapes($value, 'u');
     }
 }
 
-return join '&', sort(@params);
+return join '&', @params;
 </%INIT>