X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FView%2FTT.pm;h=78aad9325199f07101d71afbffa116540d2f9cac;hb=3cf2fea8686cea17e128789566a0cd55f2046833;hp=f634ca8fedb7604ef9d97af249bcfc738f746bd7;hpb=29550a30ca082a8f1f1d0cb1b4a92eb39bc3dd84;p=maypole.git
diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index f634ca8..78aad93 100644
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -49,6 +49,9 @@ sub template {
sub report_error {
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}) {
@@ -57,10 +60,11 @@ sub report_error {
$r->{config} ||= {};
}
if ($tt->process(\$error_template,
- { err_type => $type, error => $error,
+ { err_type => $type, error => $error,
config => $r->{config},
request => $r,
- eval{$self->vars($r)} }, \$output )) {
+ paths => $self->paths($r),
+ eval{$self->vars($r)} }, \$output )) {
$r->{output} = $output;
if ($tt->error) { $r->{output} = "
Even the error template
errored - ".$tt->error.""; }
@@ -399,23 +403,27 @@ the path "[% request.path %]". The error text returned was:
Request details
-
+
[% FOR attribute = ["model_class", "table", "template", "path",
"content_type", "document_encoding", "action", "args", "objects"] %]
- [% attribute %] | [%
+ |
[% attribute %] | [%
request.$attribute.list.join(" , ") %] |
[% END %]
+ Website / Template Paths
+
+ Base URI | [% request.config.uri_base %] |
+ Paths | [% paths %] |
+
+
Application configuration
-
- [% FOR field IN config %]
- [% field.key %] | [%
- $field.value.list.join(" , ") %] |
- [% END %]
+
+ Model | [% request.config.model %] |
+ View | [% request.config.view %] |
+ Classes | [% request.config.classes.list.join(" , ") %] |
+ Tables | [% request.config.display_tables.list.join(" , ") %] |