Index: openacs-4/packages/dotlrn/www/my-communities-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/my-communities-postgresql.xql,v
diff -u -r1.2 -r1.2.20.1
--- openacs-4/packages/dotlrn/www/my-communities-postgresql.xql	4 Dec 2002 09:51:04 -0000	1.2
+++ openacs-4/packages/dotlrn/www/my-communities-postgresql.xql	6 Jul 2016 17:17:34 -0000	1.2.20.1
@@ -16,10 +16,9 @@
                    '' as role_pretty_name,
                    CASE 
                       WHEN
-                         dotlrn_community_admin_p(dotlrn_communities.community_id, 
-                                                   dotlrn_member_rels_approved.user_id) = 'f'
-                      THEN 0
-                      ELSE 1
+                         acs_permission.permission_p(dotlrn_communities.community_id, :user_id, 'admin')
+                      THEN 1
+                      ELSE 0
                    END as admin_p
             from dotlrn_communities,
                  dotlrn_member_rels_approved