Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	27 Oct 2014 16:39:53 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -54,16 +54,15 @@
      where c.rel_segment = :segment_id
 }
 
-db_1row select_segment_info {
-    select count(*) as number_elements
-      from rel_segment_party_map map, acs_object_party_privilege_map perm
-     where perm.object_id = map.party_id
-       and perm.party_id = :user_id
-       and perm.privilege = 'read' 
-       and map.segment_id = :segment_id
-}
+db_1row select_segment_info {}
 set number_elements [util_commify_number $number_elements]
 
 set admin_p [permission::permission_p -object_id $segment_id -privilege "admin"]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: