use Maypole::Config;
use Maypole::Constants;
-our $VERSION = '2.0';
+our $VERSION = '2.01';
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
my $r = bless { config => $class->config }, $class;
$r->get_request($req);
$r->parse_location();
- warn "Request path: $r->{path}" if $r->debug;
my $status = $r->handler_guts();
return $status unless $status == OK;
$r->send_output;
. "Available tables are: "
. join( ",", @{ $config->{display_tables} } )
if $self->debug
- and not $config->ok_tables->{ $self->{table} };
+ and not $config->ok_tables->{ $self->{table} }
+ and $self->{action};
return DECLINED() unless exists $config->ok_tables->{ $self->{table} };
# Is it public?