Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	31 May 2002 21:31:18 -0000	1.30
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	4 Jun 2002 15:00:27 -0000	1.31
@@ -20,11 +20,13 @@
 
 <% set dotlrn_url [dotlrn::get_url] %>
 
-<small>[&nbsp;<a href="@dotlrn_url@/manage-memberships">Join/Drop a Class or Community Group</a>&nbsp;]</small>
+<if @user_can_browse_p@>
+  <small>[&nbsp;<a href="@dotlrn_url@/manage-memberships">Join/Drop a Class or Community Group</a>&nbsp;]</small>
+  <br></br>
+</if>
 
 <if @communities:rowcount@ gt 0>
 
-  <ul>
 <multiple name="communities">
 
 <%
@@ -76,6 +78,5 @@
 %>
 
 </multiple>
-  </ul>
 
 </if>
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	31 May 2002 21:31:18 -0000	1.6
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	4 Jun 2002 15:00:27 -0000	1.7
@@ -24,20 +24,15 @@
 }
 
 set user_id [ad_conn user_id]
+set user_can_browse_p [dotlrn::user_can_browse_p -user_id $user_id]
 
 set comm_type ""
 db_multirow communities select_communities {} {
-
-    ns_log notice "XXX0 $simple_community_type $comm_type"
-
     if {![string equal $simple_community_type dotlrn_community]} {
         set comm_type $simple_community_type
     } else {
         set simple_community_type $comm_type
     }
-
-    ns_log notice "XXX1 $simple_community_type $comm_type"
-
 }
 
 ad_return_template
Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/dotlrn/www/index.tcl	2 Jun 2002 00:05:56 -0000	1.37
+++ openacs-4/packages/dotlrn/www/index.tcl	4 Jun 2002 15:00:27 -0000	1.38
@@ -51,9 +51,6 @@
         ad_script_abort
     }
 
-    ad_return_template "index-no-browse"
-    return
-
 }
 
 set portal_id [dotlrn::get_portal_id -user_id $user_id]