Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	20 Jan 2002 19:17:39 -0000	1.2
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	22 Jan 2002 23:45:22 -0000	1.3
@@ -9,13 +9,18 @@
     users:multirow
 }
 
+set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 
-# Permissions
-dotlrn::require_user_admin_community $community_id
+set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id $community_id]
+set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
 
 if {![exists_and_not_null referer]} {
-    set referer "one-community-admin"
+    if {[string equal $admin_p "t"] == 1} {
+        set referer "one-community-admin"
+    } else {
+        set referer "one-community"
+    }
 }
 
 # Get all users for this community, including role