Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	18 Sep 2003 20:59:11 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	19 Sep 2003 12:58:52 -0000	1.9
@@ -473,45 +473,33 @@
 
 ad_proc subsite::get_pageflow_struct {} {
     # This is where the page flow structure is defined
-    set pageflow {
-        home {
-            label "Home"
-            folder ""
-            url ""
-            selected_patterns {
-                ""
-                "groups"
-            }
-            subsections {
-                home {
-                    label "Home"
-                    url ""
-                }
-                groups {
-                    label "Groups"
-                    url "groups"
-                }
-            }
+    set subsections [list]
+    lappend subsections home {
+        label "Home"
+        url ""
+    }
+    lappend subsections members {
+        label "Members"
+        folder "members"
+        selected_patterns {*}
+    }
+
+    lappend subsections groups [list \
+                                    label [ad_decode [ad_conn package_url] "/" "Communities" "Subcommunities"] \
+                                    url "subsites"]
+    
+    set home {
+        label "Home"
+        folder ""
+        url ""
+        selected_patterns {
+            ""
+            "subsites"
+            "members/*"
         }
-        members {
-            label "Members"
-            default_section members
-            folder "members"
-            url ""
-            selected_patterns {
-                *
-            }
-            subsections {
-                members {
-                    label "Members"
-                    url ""
-                    selected_patterns {
-                        *
-                    }
-                }
-            }
-        }
     }
+    lappend home subsections $subsections
+    set pageflow [list home $home]
 
     set subsite_url [subsite::get_element -element url]
     array set subsite_sitenode [site_node::get -url $subsite_url]