Maypole::Application supports Maypole::HTTPD (which needs a patch).

[maypole.git] / templates / factory / navbar

diff --git a/templates/factory/navbar b/templates/factory/navbar
index 3e5c1c5e4f6b6787ffd265b9e052b0350a387277..0c8b1683af7a98d60af67ea3ea3da505db56844d 100644 (file)
--- a/templates/factory/navbar
+++ b/templates/factory/navbar
@@ -1,16 +1,22 @@
+[%#
+
+=head1 navbar
+
+This is a navigation bar to go across the page. (Or down the side, or
+whatetver you want to do with it.) It displays all the tables which are
+accessible, with a link to the list page for each one.
+
+#%]
+[% PROCESS macros %]
 <div id="navcontainer">
 <ul id="navlist">
 [%
     FOR table = config.display_tables;
-        '<LI '; 'id="active"' IF table == classmetadata.moniker;
-        '>';
-        '<A HREF="';
-        base; table; "/list/";
-        '"';
-        ' id="current"' IF table == classmetadata.moniker;
-        '> '; table; "</A>";
+        '<li '; 'id="active"' IF table == classmetadata.table; '>';
+        # Hack
+        link(table, "list", "", table);
+        '</li>';
     END;
 %]
 </ul>
 </div> 
-