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.17 -r1.18
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	16 Feb 2008 19:06:36 -0000	1.17
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	26 Feb 2008 16:00:06 -0000	1.18
@@ -60,8 +60,7 @@
 set comm_type ""
 set old_depth 0
 set depth 0
-db_multirow -extend {admin_p intra_type_ul_tags previous_type_ul_tags} communities select_communities {} {
-    set admin_p [permission::permission_p -object_id $community_id -privilege admin]
+db_multirow -extend {intra_type_ul_tags previous_type_ul_tags} communities select_communities {} {
     set intra_type_ul_tags ""
     set previous_type_ul_tags ""
     set new_type_p 0