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 -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	28 Nov 2001 22:01:40 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	3 Sep 2024 15:37:34 -0000	1.3
@@ -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 all_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>