Link to has-many objects in the view page.

[maypole.git] / lib / Apache / MVC / View / TT.pm

diff --git a/lib/Apache/MVC/View/TT.pm b/lib/Apache/MVC/View/TT.pm
index f1b005e8108ac5a37260cdf2a77874b4bd235b08..083b35950832d601ccc260ebb0c9f1d7568497d9 100644 (file)
--- a/lib/Apache/MVC/View/TT.pm
+++ b/lib/Apache/MVC/View/TT.pm
@@ -26,12 +26,15 @@ sub _args {
         request => $r,
         class   => $class,
         objects => $r->objects,
+        base    => $r->config->{uri_base},
+        config  => $r->config
         # ...
     );
     $args{classmetadata} = {
         name => $class,
         columns => [ $class->columns ],
         colnames => { $class->column_names },
+        related_accessors => [ $class->related($r) ],
         moniker => $class->moniker,
         plural  => $class->plural_moniker,
         cgi => { $class->to_cgi },
@@ -44,6 +47,9 @@ sub _args {
     } else {
         ($args{$r->model_class->moniker}) = @{$r->objects};
     }
+
+    # Overrides
+    %args = (%args, %{$r->{template_args}||{}});
     %args;
 }