Index: openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql	16 Oct 2003 13:49:36 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/rels-list-postgresql.xql	7 Aug 2017 23:47:58 -0000	1.4
@@ -7,14 +7,13 @@
       <querytext>
       
     select r.rel_id, acs_object__name(r.object_id_one) || ' and ' || acs_object__name(r.object_id_two) as name
-      from acs_rels r, acs_object_party_privilege_map perm,
-           app_group_distinct_rel_map m
-     where perm.object_id = r.rel_id
-       and perm.party_id = :user_id
-       and perm.privilege = 'read'
+      from acs_rels r, app_group_distinct_rel_map m
+     where 
        and r.rel_type = :rel_type
        and m.rel_id = r.rel_id
        and m.package_id = :package_id
+       and acs_permission__permission_p(r.rel_id, :user_id, 'read')
+
      order by lower(acs_object__name(r.object_id_one) || ' and ' || acs_object__name(r.object_id_two))
 
       </querytext>