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