Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one-oracle.xql	20 Jun 2018 09:29:09 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,21 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="select_segment_info">      
-      <querytext>
-      
-         select count(*) as number_elements
-           from rel_segment_party_map map
-         where map.segment_id = :segment_id
-           and exists (select 1
-                       from acs_object_party_privilege_map perm
-                       where perm.object_id = map.party_id
-                         and perm.party_id = :user_id
-                         and perm.privilege = 'read')
-
-      </querytext>
-</fullquery>
- 
-</queryset>
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one-postgresql.xql	20 Jun 2018 09:29:09 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,17 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="select_segment_info">      
-      <querytext>
-      
-         select count(*) as number_elements
-           from rel_segment_party_map map
-         where map.segment_id = :segment_id
-         and acs_permission__permission_p(map.party_id, :user_id, 'read')
-
-      </querytext>
-</fullquery>
-
-</queryset>
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 -N -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	20 Jun 2018 09:29:09 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	3 Jan 2020 12:13:52 -0000	1.10.2.1
@@ -70,7 +70,12 @@
      where c.rel_segment = :segment_id
 }
 
-db_1row select_segment_info {}
+db_1row select_segment_info {
+    select count(*) as number_elements
+      from rel_segment_party_map map
+    where map.segment_id = :segment_id
+    and acs_permission.permission_p(map.party_id, :user_id, 'read')
+}
 set number_elements [util_commify_number $number_elements]
 
 set admin_p [permission::permission_p -object_id $segment_id -privilege "admin"]