diff options
Diffstat (limited to 'lib/Reaction/UI/Window.pm')
-rw-r--r-- | lib/Reaction/UI/Window.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Reaction/UI/Window.pm b/lib/Reaction/UI/Window.pm index 876a286..0289b39 100644 --- a/lib/Reaction/UI/Window.pm +++ b/lib/Reaction/UI/Window.pm @@ -50,7 +50,14 @@ sub flush_events { foreach my $type (qw/query body/) { my $meth = "${type}_parameters"; - my $param_hash = { %{$ctx->req->$meth} }; # yeah, FocusStack deletes it + my $req_param = $ctx->req->$meth; + my $param_hash = { + map { + $_ =~ m/(^r.+\:\w+)\.(x|y)/ ? # for <input type="image"... buttons + ( $1 => $req_param->{$_} ) + : ( $_ => $req_param->{$_} ) + } keys %$req_param + }; # yeah, FocusStack deletes it my @param_keys = keys %$param_hash; if (@param_keys) { for (@param_keys) { |