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.10 -r1.11 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 19 Sep 2003 16:13:25 -0000 1.10 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 22 Sep 2003 08:40:04 -0000 1.11 @@ -526,29 +526,26 @@ 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 { + + set pageflow [list] + lappend pageflow home { label "Home" folder "" url "" selected_patterns { "" "subsites" - "members/*" } } - lappend home subsections $subsections - set pageflow [list home $home] + lappend pageflow members { + label "Members" + folder "members" + selected_patterns {*} + } + + set subsite_url [subsite::get_element -element url] array set subsite_sitenode [site_node::get -url $subsite_url] set subsite_node_id $subsite_sitenode(node_id)