Index: openacs-4/packages/dotlrn/www/manage-memberships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/manage-memberships.tcl	14 Mar 2002 23:30:26 -0000	1.2
+++ openacs-4/packages/dotlrn/www/manage-memberships.tcl	18 Mar 2002 16:48:37 -0000	1.3
@@ -30,6 +30,11 @@
 
 set user_id [ad_conn user_id]
 
+if {![dotlrn::user_can_browse_p]} {
+    ad_returnredirect "not-allowed"
+    ad_script_abort
+}
+
 set departments [db_list_of_lists select_departments_for_select_widget {
     select dotlrn_departments_full.pretty_name,
            dotlrn_departments_full.department_key
Index: openacs-4/packages/dotlrn/www/my-communities.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/my-communities.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/my-communities.adp	12 Mar 2002 16:26:55 -0000	1.6
+++ openacs-4/packages/dotlrn/www/my-communities.adp	18 Mar 2002 16:48:37 -0000	1.7
@@ -12,6 +12,8 @@
     - [<include src="deregister-link" url="deregister?community_id=@communities.community_id@&referer=@referer@">]
   </li>
 </multiple>
+<if @user_can_browse_p@ eq 1>
   <p></p>
   <li><a href="manage-memberships">Join A Group</a></li>
+</if>
 </ul>
Index: openacs-4/packages/dotlrn/www/my-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/my-communities.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/my-communities.tcl	8 Mar 2002 00:27:05 -0000	1.2
+++ openacs-4/packages/dotlrn/www/my-communities.tcl	18 Mar 2002 16:48:37 -0000	1.3
@@ -10,6 +10,7 @@
 }
 
 set user_id [ad_maybe_redirect_for_registration]
+set user_can_browse_p [dotlrn::user_can_browse_p]
 
 if {![info exists referer]} {
     set referer "my-communities"
Index: openacs-4/packages/dotlrn/www/preferences.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/preferences.adp	18 Mar 2002 03:39:39 -0000	1.10
+++ openacs-4/packages/dotlrn/www/preferences.adp	18 Mar 2002 16:48:37 -0000	1.11
@@ -18,8 +18,3 @@
 <blockquote>
   <include src="my-communities" title="Groups" referer="preferences">
 </blockquote>
-
-<blockquote>
-
-</blockquote>
-