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 e2a15046cef24e59743a7b9defc258b16f50132d..083b35950832d601ccc260ebb0c9f1d7568497d9 100644 (file)
--- a/lib/Apache/MVC/View/TT.pm
+++ b/lib/Apache/MVC/View/TT.pm
@@ -27,12 +27,14 @@ sub _args {
         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 },