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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	15 May 2001 16:59:00 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.xql	28 Nov 2001 22:01:40 -0000	1.2
@@ -5,15 +5,17 @@
       <querytext>
       
     select c.constraint_id, c.constraint_name
-      from rel_constraints c, acs_object_party_privilege_map perm,
+      from rel_constraints c
            application_group_segments s1, application_group_segments s2
-     where perm.object_id = c.constraint_id
-       and perm.party_id = :user_id
-       and perm.privilege = 'read'
-       and s1.segment_id = c.rel_segment
+     where s1.segment_id = c.rel_segment
        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')
      order by lower(c.constraint_name)
 
       </querytext>