Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.19.10.2 -r1.19.10.3
--- openacs-4/www/default-master.tcl	4 Mar 2007 16:47:04 -0000	1.19.10.2
+++ openacs-4/www/default-master.tcl	24 May 2007 10:04:04 -0000	1.19.10.3
@@ -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]} {
@@ -46,6 +46,12 @@
         id \
         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