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.13 -r1.14
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	2 Oct 2003 22:15:49 -0000	1.13
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	10 Oct 2003 09:02:18 -0000	1.14
@@ -539,10 +539,18 @@
         }
     }
 
-    lappend pageflow members {
-        label "Members"
-        folder "members"
-        selected_patterns {*}
+    set user_id [ad_conn user_id]
+    set group_id [application_group::group_id_from_package_id]
+    set admin_p [ad_permission_p -user_id $user_id $group_id "admin"]
+    set show_member_list_to [parameter::get -parameter "ShowMembersListTo" -default 2]
+
+    if { $admin_p || ($user_id != 0 && $show_member_list_to == 1) || \
+	$show_member_list_to == 0 } {
+	lappend pageflow members {
+	    label "Members"
+	    folder "members"
+	    selected_patterns {*}
+	}
     }