X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=templates%2Ffactory%2Fmacros;h=044ba456ad44c4d82016e6abd526920db94d04a0;hb=a0f5a455f933d562b30d9feb613098fb7ddc85b6;hp=2a2315523300949de9c7b48f103f28367a4cf9b9;hpb=7137ae307038838c154fec5240c629fdb9e8ac76;p=maypole.git

diff --git a/templates/factory/macros b/templates/factory/macros
index 2a23155..044ba45 100644
--- a/templates/factory/macros
+++ b/templates/factory/macros
@@ -34,3 +34,14 @@ END %]
 </TD>
 [% END %]
 
+[% MACRO view_related(object) BLOCK;
+    FOR accessor = classmetadata.related_accessors.list;
+        "<H3>"; accessor | ucfirst; "</H3>\n";
+        "<UL id=\"vlist\">";
+        FOR thing = object.$accessor;
+            "<LI>"; maybe_link_view(thing); "</LI>\n";
+        END;
+        "</UL>";
+    END; 
+END;
+%]