Index: openacs-4/packages/acs-subsite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/index.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/index.tcl	2 Oct 2003 22:04:46 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/index.tcl	10 Oct 2003 09:02:18 -0000	1.14
@@ -15,6 +15,7 @@
     nodes:multirow
     admin_p:onevalue
     user_id:onevalue
+    show_members_page_link_p:onevalue
 }
 
 set main_site_p [string equal [ad_conn package_url] "/"]
@@ -39,6 +40,10 @@
 
 set subsite_url [subsite::get_element -element url]
 
+set show_members_list_to [parameter::get -parameter "ShowMembersListTo" -default 2]
+set show_members_page_link_p \
+	[expr $admin_p || ($user_id != 0 && $show_members_list_to ==1) || \
+	$show_members_list_to == 0 ]
 
 # User's group membership