Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.xql,v
diff -u -r1.2.32.1 -r1.2.32.2
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.xql	9 Jul 2019 09:32:17 -0000	1.2.32.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.xql	9 Jul 2019 10:09:25 -0000	1.2.32.2
@@ -7,10 +7,8 @@
 select r.rel_id, 
        party_names.party_name as element_name
 from (select DISTINCT rels.rel_id, object_id_two
-      from $extra_tables acs_rels rels, acs_object_party_privilege_map perm
-      where perm.object_id = rels.rel_id
-        and perm.party_id = :user_id
-        and perm.privilege = 'read'
+      from $extra_tables acs_rels rels
+      where acs_permission.permission_p(rels.rel_id, :user_id, 'read')
         and rels.rel_type = :rel_type
         and rels.object_id_one = :group_id $extra_where_clauses) r, 
      party_names