Index: openacs-4/packages/acs-subsite/www/members/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/members/index.tcl	3 Oct 2003 09:07:09 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/members/index.tcl	10 Oct 2003 09:02:18 -0000	1.5
@@ -23,9 +23,13 @@
 #    - does user have delete on group?
 set admin_p [ad_permission_p -user_id $user_id $group_id "admin"]
 
-if { !$admin_p && ![parameter::get -parameter "MembersCanSeeMembersP" -default 1] } {
-    ad_return_forbidden "Cannot see the members list" "I'm sorry, but you're not allowed to view the members list"
-    ad_script_abort
+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} {
+    set show_members_list_p 1
+} else {
+    set show_members_list_p 0
+    set title "Cannot see the members list"
 }
 
 if { $admin_p } {