Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql,v
diff -u -N -r1.2.32.1 -r1.2.32.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	9 Jul 2019 09:32:17 -0000	1.2.32.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	9 Jul 2019 10:09:25 -0000	1.2.32.2
@@ -11,11 +11,7 @@
        and s1.package_id = :package_id
        and s2.segment_id = c.required_rel_segment
        and s2.package_id = :package_id
-       and exists (select 1
-                   from acs_object_party_privilege_map perm
-                   where perm.object_id = c.constraint_id
-                     and perm.party_id = :user_id
-                     and perm.privilege = 'read')
+       and acs_permission.permission_p(c.constraint_id, :user_id, 'read')
      order by lower(c.constraint_name)
 
       </querytext>