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

@ -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;
}