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 -r1.1 -r1.1.30.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one-oracle.xql	15 May 2001 16:59:00 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one-oracle.xql	3 Jul 2016 14:24:31 -0000	1.1.30.1
@@ -16,5 +16,20 @@
       </querytext>
 </fullquery>
 
+<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>