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
|
||||
|
||||
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 ) {
|
||||
return $self->www_view;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue