| 223 | | } |
| | 223 | } else { |
| | 224 | # Fallback: redirect to the display page, preserving all vars |
| | 225 | # except for the action, which we override. |
| | 226 | # Note: $q->Vars needs munging if we need to support any |
| | 227 | # multi-valued params |
| | 228 | my $params = $q->Vars; |
| | 229 | $params->{'action'} = 'display'; |
| | 230 | my $redir_target = $script_url . $script_name . '?'; |
| | 231 | my @args = map { "$_=" . $params->{$_} } keys %{$params}; |
| | 232 | $redir_target .= join ';', @args; |
| | 233 | |
| | 234 | print $q->redirect( |
| | 235 | -uri => $redir_target, |
| | 236 | -status => 303 |
| | 237 | ); |
| | 238 | } |
| | 239 | |