diff options
| author | ivan <ivan> | 2006-10-17 08:51:01 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-17 08:51:01 +0000 |
| commit | a513c0bef534d05f03c1242831b6f3be19b97dae (patch) | |
| tree | 2f2a88caf104fef31a3a8dc190ac3fe41dd017c1 /rt/html/Elements/QueryString | |
| parent | d4d0590bef31071e8809ec046717444b95b3f30a (diff) | |
import rt 3.4.5
Diffstat (limited to 'rt/html/Elements/QueryString')
| -rw-r--r-- | rt/html/Elements/QueryString | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/rt/html/Elements/QueryString b/rt/html/Elements/QueryString index 7d41f15e0..1ddab85de 100644 --- a/rt/html/Elements/QueryString +++ b/rt/html/Elements/QueryString @@ -45,8 +45,12 @@ %# END BPS TAGGED BLOCK }}} <%init> my @params; -while ( (my $key, my $value) = each %ARGS ){ +while ( my ($key, $value) = each %ARGS ){ + if( UNIVERSAL::isa( $value, 'ARRAY' ) ) { + push @params, map $key."=".$m->interp->apply_escapes($_,'u'), @$value; + } else { push @params, $key."=".$m->interp->apply_escapes($value,'u'); + } } return(join('&',@params)); </%init> |