Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.tcl	6 Sep 2002 21:50:02 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/index.tcl	7 Aug 2017 23:47:58 -0000	1.3
@@ -1,5 +1,3 @@
-# /packages/mbryzek-subsite/www/admin/rel-segments/constraints/index.tcl
-
 ad_page_contract {
 
     Shows all constraints on which the user has read permission
@@ -10,27 +8,19 @@
 
 }
 
-set context [list [list ../ "Relational segments"] "Constraints"]
-
-set user_id [ad_conn user_id]
-
+set context    [list [list ../ "Relational segments"] "Constraints"]
+set user_id    [ad_conn user_id]
 set package_id [ad_conn package_id]
 
 # Select out basic information about all the constraints on which the
 # user has read permission
 
-db_multirow constraints select_rel_constraints {
-    select c.constraint_id, c.constraint_name
-      from rel_constraints c, acs_object_party_privilege_map perm,
-           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
-       and s1.package_id = :package_id
-       and s2.segment_id = c.required_rel_segment
-       and s2.package_id = :package_id
-     order by lower(c.constraint_name)
-}
+db_multirow constraints select_rel_constraints {}
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: