Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet-postgresql.xql	8 Aug 2006 21:26:24 -0000	1.4
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet-postgresql.xql	16 Feb 2008 19:06:36 -0000	1.5
@@ -20,8 +20,7 @@
                    tree_level(dotlrn_communities_all.tree_sortkey) as tree_level,
                    coalesce((select tree_level(dotlrn_community_types.tree_sortkey)
                         from dotlrn_community_types
-                        where dotlrn_community_types.community_type = dotlrn_communities_all.community_type), 0) as community_type_level,
-                   acs_permission__permission_p(dotlrn_communities_all.community_id, :user_id, 'admin') as admin_p
+                        where dotlrn_community_types.community_type = dotlrn_communities_all.community_type), 0) as community_type_level
             from dotlrn_communities_all,
                  dotlrn_member_rels_approved
             where dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id
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