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 a1484d5eab77a2b030f230c0e322cb1a2ef8508a..78aad9325199f07101d71afbffa116540d2f9cac 100644 (file)
--- 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}) {
@@ -60,7 +63,8 @@ sub report_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} = "<html><body>Even the error template
          errored - ".$tt->error."</body></html>"; }
@@ -399,23 +403,27 @@ the path "[% request.path %]". The error text returned was:
  
  <h2> Request details </h2>
  
-<table>
+<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"> [% attribute %] </td> <td class="rhs"> [%
+    <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 field IN config %]
-    <tr> <td class="lhs"> [% field.key %] </td> <td class="rhs"> [% 
-    $field.value.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>
-
-