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.16 -r1.17
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	18 Dec 2007 21:20:10 -0000	1.16
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	16 Feb 2008 19:06:36 -0000	1.17
@@ -60,7 +60,8 @@
 set comm_type ""
 set old_depth 0
 set depth 0
-db_multirow -extend {intra_type_ul_tags previous_type_ul_tags} communities select_communities {} {
+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]
     set intra_type_ul_tags ""
     set previous_type_ul_tags ""
     set new_type_p 0