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.6.1 -r1.3.6.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl	10 Sep 2015 08:21:44 -0000	1.3.6.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/index.tcl	28 Oct 2015 09:38:36 -0000	1.3.6.2
@@ -24,21 +24,7 @@
 # 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