Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl	27 Oct 2014 16:39:52 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements-display.tcl	7 Aug 2017 23:47:58 -0000	1.3
@@ -6,15 +6,13 @@
 set package_url [ad_conn package_url]
 set user_id [ad_conn user_id]
 
-db_multirow elements elements_select {
-    select acs_object.name(map.party_id) as name, map.rel_id, 
-           decode(map.container_id, :group_id, 1, 0) as direct_p,
-           acs_object.name(map.container_id) as container_name
-      from rel_segment_party_map map
-     where acs_permission.permission_p(map.party_id, :user_id, 'read') = 't'
-       and map.segment_id = :segment_id
-     order by lower(name)
-}
+db_multirow elements elements_select {}
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: