Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/www/default-master.tcl	14 May 2007 20:30:29 -0000	1.20
+++ openacs-4/www/default-master.tcl	15 Sep 2007 07:22:40 -0000	1.21
@@ -30,7 +30,7 @@
 # Create standard top level navigation
 #
 if {![info exists navigation_groups]} {
-    set navigation_groups [list main sub]
+    set navigation_groups [list]
 }
 
 if {![template::multirow exists navigation]} {
@@ -47,6 +47,14 @@
         tabindex 
 }
 
+for {set i 1} {$i <= [template::multirow size navigation]} {incr i} {
+    template::multirow get navigation $i
+
+    if {[lsearch $navigation_groups $navigation(group)] < 0} {
+        lappend navigation_groups $navigation(group)
+    }
+}
+
 #
 # Add standard css
 #