sub handler {
# See Maypole::Workflow before trying to understand this.
- my $class = shift;
+ my ( $class, $req ) = @_;
$class->init unless $class->init_done;
my $r = bless { config => $class->config }, $class;
- $r->get_request();
+ $r->get_request($req);
$r->parse_location();
my $status = $r->handler_guts();
return $status unless $status == OK;
unless ($applicable == OK) {
# It's just a plain template
delete $r->{model_class};
- $r->{path} =~ s{/}{}; # De-absolutify
+ $r->{path} =~ s{/$}{}; # De-absolutify
$r->template($r->{path});
}
# We authenticate every request, needed for proper session management
=head1 THANK YOU
-Jesse Scheildlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack and all the others who've helped.
+Jesse Scheidlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack and all the others who've helped.
=head1 LICENSE