handle query params before URLs
This commit is contained in:
parent
cb4189b7da
commit
a649816db8
1 changed files with 6 additions and 1 deletions
|
|
@ -572,7 +572,12 @@ A URL.
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
sub dispatch {
|
sub dispatch {
|
||||||
my ($self, $fragment) = @_;
|
my ($self, $fragment) = @_;
|
||||||
|
if (my $func = $self->session->form->param('func')) {
|
||||||
|
if (my $sub = $self->can('www_'.$func)) {
|
||||||
|
return $sub->();
|
||||||
|
}
|
||||||
|
}
|
||||||
if (! $fragment ) {
|
if (! $fragment ) {
|
||||||
return $self->www_view;
|
return $self->www_view;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue