templates/factory/macros

   1 [%#
   2
   3 =head1 MACROS
   4
   5 These are some default macros which are used by various templates in the
   6 system.
   7
   8 =head2 link
   9
  10 This creates an <A HREF="... to a command in the Apache::MVC system by
  11 catenating the base URL, table, command, and any arguments.
  12
  13 #%]
  14 [%
  15 MACRO link(table, command, additional, label) BLOCK;
  16     SET lnk = base _ "/" _ table _ "/" _ command _ "/" _ additional;
  17     lnk = lnk | uri | html;
  18     '<a href="' _ lnk _ '">';
  19     label;
  20     "</a>";
  21 END;
  22 %]
  23
  24 [%#
  25
  26 =head2 maybe_link_view
  27
  28 C<maybe_link_view> takes something returned from the database - either
  29 some ordinary data, or an object in a related class expanded by a
  30 has-a relationship. If it is an object, it constructs a link to the view
  31 command for that object. Otherwise, it just displays the data.
  32
  33 #%]
  34
  35 [%
  36 MACRO maybe_link_view(object) BLOCK;
  37     IF object.isa('Maypole::Model::Base');
  38         link(object.table, "view", object.id.join('/'), object);
  39     ELSE;
  40         object;
  41     END;
  42 END;
  43 %]
  44
  45 [%#
  46
  47 =head2 display_line
  48
  49 C<display_line> is used in the list template to display a row from the
  50 database, by iterating over the columns and displaying the data for each
  51 column. It misses out the C<id> column by default, and magically
  52 URLifies columns called C<url>. This may be considered too much magic
  53 for some.
  54
  55 #%]
  56 [% MACRO display_line(item) BLOCK;
  57     FOR col = classmetadata.list_columns;
  58         NEXT IF col == "id";
  59         "<td>";
  60         IF col == "url" AND item.url;
  61             '<a href="'; item.url; '"> '; item.url; '</a>';
  62         ELSIF col == item.stringify_column;
  63             maybe_link_view(item);
  64         ELSE;
  65             maybe_link_view(item.$col);
  66         END;
  67         "</td>";
  68     END;
  69     '<td class="actions">';
  70     button(item, "edit");
  71     button(item, "delete");
  72     "</td>";
  73 END %]
  74 [%#
  75
  76 =head2 button
  77
  78 This is a generic button, which performs an action on an object.
  79
  80 =cut
  81
  82 #%]
  83 [% MACRO button(obj, action) BLOCK; %]
  84 <form class="actionform" action="[% base %]/[% obj.table %]/[% action %]/[% obj.id.join('/') %]" method="post">
  85 <div class="field"><input class="actionbutton" type="submit" value="[% action %]" /></div></form>
  86 [% END %]
  87 [%#
  88
  89 =head2 view_related
  90
  91 This takes an object, and looks up the C<related_accessors>; this should
  92 give a list of accessors that can be called to get a list of related
  93 objects. It then displays a title for that accessor, (i.e. "Beers" for a
  94 brewery) calls the accesor, and displays a list of the results.
  95
  96 =cut
  97
  98 #%]
  99 [%
 100 MACRO view_related(object) BLOCK;
 101     FOR accessor = classmetadata.related_accessors.list;
 102         "<div id=\"subtitle\">"; accessor | ucfirst; "</div>\n";
 103         "<ul id=\"vlist\">";
 104         FOR thing = object.$accessor;
 105             "<li>"; maybe_link_view(thing); "</li>\n";
 106         END;
 107         "</ul>";
 108     END;
 109 END;
 110
 111 MACRO test_xxxx(myblock) BLOCK;
 112     FOR col = classmetadata.columns;
 113         NEXT IF col == "id";
 114         myblock;
 115     END;
 116 END;
 117 %]