Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	8 Aug 2006 21:26:24 -0000	1.10
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	7 Aug 2017 23:48:09 -0000	1.11
@@ -11,7 +11,7 @@
                                                              'dotlrn_club', 'dotlrn_club',
                                                              'dotlrn_pers_community', 'dotlrn_pers_community',
                                                              'dotlrn_class_instance') as simple_community_type,
-                   decode(dotlrn_community_admin_p(dotlrn_communities_all.community_id, dotlrn_member_rels_approved.user_id),'f',0,1) as admin_p,	
+                   acs_permission.permission_p(dotlrn_communities_all.community_id, :user_id, 'admin') as admin_p,
                    tree.tree_level(dotlrn_communities_all.tree_sortkey) as tree_level,
                    nvl((select tree.tree_level(dotlrn_community_types.tree_sortkey)
                         from dotlrn_community_types