my $class = $r->model_class;
my %args = (
request => $r,
- class => $class,
objects => $r->objects,
base => $r->config->{uri_base},
config => $r->config
my ($self, $r) = @_;
my $template = $self->_tt($r);
my $output;
- warn "Processing ".$r->template;
$template->process($r->template, { $self->_args($r) }, \$output)
|| return $self->error($r, $template->error);
- warn "And off it goes!\n";
$r->{ar}->content_type("text/html");
$r->{ar}->headers_out->set("Content-Length" => length $output);
$r->{ar}->send_http_header;