added object method, not added to templates yet

[maypole.git] / lib / Maypole / View / TT.pm
diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm

index c399a6f69b5ffb5afffc41608d62b6b765e5b0a7..f634ca8fedb7604ef9d97af249bcfc738f746bd7 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -58,8 +58,8 @@ sub report_error {
      }
      if ($tt->process(\$error_template,
                      { err_type => $type, error => $error, 
-                      config => { (%{$r->{config}}) },
-                      request => $r, # We have that at least
+                      config => $r->{config},
+                      request => $r,
          eval{$self->vars($r)} }, \$output )) {
          $r->{output} = $output;
          if ($tt->error) { $r->{output} = "<html><body>Even the error template
@@ -399,19 +399,19 @@ the path "[% request.path %]". The error text returned was:
  
  <h2> Request details </h2>
  
-<table> 
-    [% FOR thing = ["model_class", "table", "template", "path",
+<table>
+    [% 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"> [% attribute %] </td> <td class="rhs"> [%
+    request.$attribute.list.join(" , ") %] </td></tr>
      [% END %]
  </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>
+<table>
+    [% FOR field IN config %]
+    <tr> <td class="lhs"> [% field.key %] </td> <td class="rhs"> [% 
+    $field.value.list.join(" , ") %] </td></tr>
      [% END %]
  </table>