X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=templates%2Ffactory%2Fmacros;h=edae5c1a61647b0c5dacd3a173823c3e783d5229;hb=079efd1d7e2ba90ad0c51fbe694f5eb27a719e98;hp=b9b8dee42b63333f474d880aac3ed77bd5bc204e;hpb=36b7502bb586953f62f56a2c6edd3b22c184702d;p=maypole.git

diff --git a/templates/factory/macros b/templates/factory/macros
index b9b8dee..edae5c1 100644
--- a/templates/factory/macros
+++ b/templates/factory/macros
@@ -1,20 +1,65 @@
-[% MACRO maybe_link_view(object) BLOCK;
-    IF object.moniker; # It's an object, i.e. a has-a
-        "<A HREF='" _ base _ object.moniker _ "/view/" _ object.id _"'>";
-        object;
-        "</A>";
+[%#
+
+=head1 MACROS
+
+These are some default macros which are used by various templates in the
+system.
+
+=head2 link
+
+This creates an <A HREF="... to a command in the Apache::MVC system by
+catenating the base URL, table, command, and any arguments.
+
+#%]
+[%
+MACRO link(table, command, additional, label) BLOCK;
+    '<A HREF="' _ base _ "/" _ table _ "/" _ command _ "/" _ additional _ '">';
+    label;
+    "</A>";
+END;
+%]
+
+[%#
+
+=head2 maybe_link_view
+
+C<maybe_link_view> takes something returned from the database - either
+some ordinary data, or an object in a related class expanded by a
+has-a relationship. If it is an object, it constructs a link to the view
+command for that object. Otherwise, it just displays the data.
+
+#%]
+
+[%
+
+MACRO maybe_link_view(object) BLOCK;
+    IF object.table; # It's an object, i.e. a has-a
+        link(object.table, "view", object.id, object);
     ELSE;
         object;
     END;
 END;
 %]
 
+[%#
+
+=head2 display_line
+
+C<display_line> is used in the list template to display a row from the
+database, by iterating over the columns and displaying the data for each
+column. It misses out the C<id> column by default, and magically
+URLifies columns called C<url>. This may be considered too much magic
+for some.
+
+#%]
 [% MACRO display_line(item) BLOCK;
      FOR col = classmetadata.columns;
         NEXT IF col == "id";
         "<td>";
-        IF col == "url";  # Possibly too much magic.
+        IF col == "url";
             "<A HREF="; item.url; "> "; item.url; "</A>";
+        ELSIF col == item.stringify_column;
+            maybe_link_view(item);
         ELSE;
             maybe_link_view(item.$col);
         END;
@@ -23,12 +68,50 @@ END;
     button(item, "edit");
     button(item, "delete");
 END %]
+[%#
+
+=head2 button
+
+This is a generic button, which performs an action on an object.
 
+=cut
+
+#%]
 [% MACRO button(obj, action) BLOCK; %]
 <TD>
-<FORM METHOD="post" ACTION="[%base%]/[%obj.moniker%]/[%action%]/[%obj.id%]">
+<FORM METHOD="post" ACTION="[%base%]/[%obj.table%]/[%action%]/[%obj.id%]">
     <INPUT TYPE="submit" NAME="[%action%]" VALUE="[%action%]">
 </FORM>
 </TD>
 [% END %]
+[%#
+
+=head2 view_related
+
+This takes an object, and looks up the C<related_accessors>; this should
+give a list of accessors that can be called to get a list of related
+objects. It then displays a title for that accessor, (i.e. "Beers" for a
+brewery) calls the accesor, and displays a list of the results. 
+
+=cut
 
+#%]
+[% 
+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;
+
+MACRO test_xxxx(myblock) BLOCK;
+    FOR col = classmetadata.columns;
+        NEXT IF col == "id";
+        myblock;
+    END;
+END;
+%]