]> git.decadent.org.uk Git - maypole.git/blobdiff - lib/Maypole/View/TT.pm
projects / maypole.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
fixed error template in TT.pm and possible work around for ->object to work
[maypole.git] / lib / Maypole / View / TT.pm
diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 7106b7a563f0d5593fdbe3860752aa488b1b575f..78aad9325199f07101d71afbffa116540d2f9cac 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -12,7 +12,6 @@ our $VERSION = 2.11;
 
 sub template {
     my ( $self, $r ) = @_;
-
     unless ($self->{tt}) {
         my $view_options = $r->config->view_options || {};
         $self->{provider} = Template::Provider->new($view_options);
@@ -25,17 +24,24 @@ sub template {
     $self->{provider}->include_path([ $self->paths($r) ]);
 
     my $template_file = $r->template;
+
     my $ext = $r->config->template_extension;
     $template_file .= $ext if defined $ext;
 
     my $output;
-    if ($self->{tt}->process($template_file, { $self->vars($r) }, \$output )) {
-        $r->{output} = $output;
-        return OK;
-    }
-    else {
+    my $processed_ok = eval{$self->{tt}->process($template_file, { $self->vars($r) }, \$output );};
+    if ($processed_ok) {
+      $r->{output} = $output;
+      return OK;
+    } else {
+      if ($@) {
+       warn "fatal error in template '$template_file' : $@\n";
+       $r->{error} = "fatal error in template '$template_file' : $@";
+      } else {
+       warn "TT error for template '$template_file'\n" . $self->{tt}->error;
        $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->error;
-        return ERROR;
+      }
+      return ERROR;
     }
 }
 
@@ -43,13 +49,22 @@ 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}) {
+      warn "no config for this request\n";
+      $error .= '<br> There was a problem finding configuration for this request';
+      $r->{config} ||= {};
+    }
     if ($tt->process(\$error_template,
-        { err_type => $type, error => $error, 
-         config => { %{$r->{config}}},
-          request => $r, # We have that at least
-        eval{$self->vars($r)} }, \$output )) {
+                    { err_type => $type, error => $error,
+                      config => $r->{config},
+                      request => $r,
+                      paths => $self->paths($r),
+                      eval{$self->vars($r)} }, \$output )) {
         $r->{output} = $output;
         if ($tt->error) { $r->{output} = "<html><body>Even the error template
         errored - ".$tt->error."</body></html>"; }
@@ -103,6 +118,10 @@ options.
 
 Processes the template and sets the output. See L<Maypole::View::Base>
 
+=item report_error
+
+Reports the details of an error, current state and parameters
+
 =back
 
 =head1 TEMPLATE TOOLKIT INTRODUCTION
@@ -384,23 +403,27 @@ the path "[% request.path %]". The error text returned was:
 
 <h2> Request details </h2>
 
-<table> 
-    [% FOR thing = ["model_class", "table", "template", "path",
+<table width="85%" cellspacing="2" cellpadding="1">
+    [% FOR attribute = ["model_class", "table", "template", "path",
     "content_type", "document_encoding", "action", "args", "objects"] %]
-    <tr> <td class="lhs"> [%thing %] </td> <td class="rhs"> [%
-    request.$thing.list.join(" , ") %] </td></tr>
+    <tr> <td class="lhs" width="35%"> <b>[% attribute %]</b> </td> <td class="rhs" width="65%"> [%
+    request.$attribute.list.join(" , ") %] </td></tr>
     [% END %]
 </table>
 
+<h2> Website / Template Paths </h2>
+<table width="85%" cellspacing="2" cellpadding="1">
+<tr><td class="lhs" width="35%"> <b>Base URI</b> </td><td class="rhs" width="65%">[% request.config.uri_base %]</td></tr>
+<tr><td class="lhs" width="35%"> <b>Paths</b> </td><td class="rhs" width="65%"> [% paths %] </td></tr>
+</table>
+
 <h2> Application configuration </h2>
-<table> 
-    [% FOR thing = config.keys %]
-    <tr> <td class="lhs"> [%thing %] </td> <td class="rhs"> [% 
-    config.$thing.list.join(" , ") %] </td></tr>
-    [% END %]
+<table width="85%" cellspacing="2" cellpadding="1">
+    <tr><td class="lhs"  width="35%"> <b>Model </b> </td><td class="rhs" width="65%"> [% request.config.model %] </td></tr>
+    <tr><td class="lhs"  width="35%"> <b>View </b> </td><td class="rhs" width="65%"> [% request.config.view %] </td></tr>
+    <tr><td class="lhs" width="35%"> <b>Classes</b> </td><td class="rhs" width="65%"> [% request.config.classes.list.join(" , ") %] </td></tr>
+    <tr><td class="lhs" width="35%"> <b>Tables</b> </td><td class="rhs" width="65%"> [% request.config.display_tables.list.join(" , ") %] </td></tr>
 </table>
 
 </body>
 </html>
-
-
Package: Maypole [unmaintained]