X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=templates%2Ffactory%2Fnavbar;h=40050d37c9d30907d9676535542cc2f3f83c9626;hb=763567374b3430c726dc2fdfb38362fb960ce1eb;hp=3e5c1c5e4f6b6787ffd265b9e052b0350a387277;hpb=0ad4ba7aa71b7dda17f0b07ccc9d8f0ad3424b82;p=maypole.git

diff --git a/templates/factory/navbar b/templates/factory/navbar
index 3e5c1c5..40050d3 100644
--- a/templates/factory/navbar
+++ b/templates/factory/navbar
@@ -1,14 +1,25 @@
+[%#
+
+=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
+        SET active = '" id="current' IF table == classmetadata.table;
+
+        link(table, "list", active, table);
+        SET active = "";
+        '</LI>';
     END;
 %]
 </ul>