Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl	18 Apr 2011 17:24:30 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl	7 Aug 2017 23:47:58 -0000	1.4
@@ -24,20 +24,12 @@
 # Select out basic information about all the segments on which the
 # user has read permission
 
-db_multirow seg select_rel_segments {
-    select s.segment_id, s.segment_name, s.group_id, acs_object.name(s.group_id) as group_name, 
-           s.rel_type, t.pretty_name as rel_type_pretty_name
-      from acs_object_types t, 
-           rel_segments s, 
-           acs_object_party_privilege_map perm,
-           application_group_segments ags
-     where perm.object_id = s.segment_id
-       and perm.party_id = :user_id
-       and perm.privilege = 'read'
-       and t.object_type = s.rel_type
-       and s.segment_id = ags.segment_id
-       and ags.package_id = :package_id
-     order by lower(s.segment_name)
-}
+db_multirow seg select_rel_segments {}
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: