Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index-oracle.xql	7 Aug 2017 23:47:58 -0000	1.2
@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<queryset>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="select_rel_constraints">      
+      <querytext>
+      
+    select c.constraint_id, c.constraint_name
+      from rel_constraints c
+           application_group_segments s1, application_group_segments s2
+     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 acs_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>
+</fullquery>
+
+ 
+</queryset>