package Maypole::View::TT;
-use Class::C3;
use base 'Maypole::View::Base';
use Maypole::Constants;
use Template;
use File::Spec::Functions qw(catdir tmpdir);
+use Template::Constants qw( :all );
our $error_template;
{ local $/; $error_template = <DATA>; }
-our $VERSION = '2.11';
+our $VERSION = '2.12';
+
+my $debug_flags = DEBUG_ON;
use strict;
my ( $self, $r ) = @_;
unless ($self->{tt}) {
my $view_options = $r->config->view_options || {};
+ if ($r->debug) {
+ $view_options->{DEBUG} = $debug_flags;
+ }
$self->{provider} = Template::Provider->new($view_options);
$self->{tt} = Template->new({
%$view_options,
my ($self, $r, $error, $type) = @_;
my $output;
- warn "self : $self, r : $r, error : $error, type : $type\n";
-
# Need to be very careful here.
my $tt = Template->new;
unless (ref $r->{config}) {
$error .= '<br> There was a problem finding configuration for this request';
$r->{config} ||= {};
}
+
+ $r->warn("report_error - reporting error to user : $error\n");
+
if ($tt->process(\$error_template,
{ err_type => $type, error => $error,
config => $r->{config},
request => $r,
- paths => $self->paths($r),
+ paths => [ $self->paths($r) ],
eval{$self->vars($r)} }, \$output )) {
$r->{output} = $output;
if ($tt->error) { $r->{output} = "<html><body>Even the error template