diff options
| author | ivan <ivan> | 2006-10-17 08:51:01 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-17 08:51:01 +0000 |
| commit | c8cccb4a92adceb943c635fe62dad0d034462ce0 (patch) | |
| tree | 0a33472e21f5174091e49e245f5bd68a235d4d50 /rt/html/Elements/QueryString | |
| parent | acd0f14d8f619055b4292c178b14682974fb0099 (diff) | |
| parent | a513c0bef534d05f03c1242831b6f3be19b97dae (diff) | |
This commit was generated by cvs2svn to compensate for changes in r4888,
which included commits to RCS files with non-trunk default branches.
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> |