handle query params before URLs

This commit is contained in:
Colin Kuskie 2010-07-28 16:00:44 -07:00
parent cb4189b7da
commit a649816db8

View file

@ -573,6 +573,11 @@ A URL.
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;
} }