package Maypole::View::TT;
-use Apache::Constants;
use Lingua::EN::Inflect;
use Template;
use File::Spec;
if ($class) {
$args{classmetadata} = {
name => $class,
+ table => $class->table,
columns => [ $class->display_columns ],
colnames => { $class->column_names },
related_accessors => [ $class->related($r) ],
sub error {
my ($self, $r, $error) = @_;
warn $error;
- if ($error =~ /not found$/) { return DECLINED }
+ if ($error =~ /not found$/) { return -1 }
$r->{content_type} = "text/plain";
$r->{output} = $error;
$r->send_output;