Index: openacs-4/packages/wp-slim/www/presentation-top-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-top-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/wp-slim/www/presentation-top-oracle.xql	4 Oct 2001 04:23:13 -0000	1.1
+++ openacs-4/packages/wp-slim/www/presentation-top-oracle.xql	28 Aug 2003 09:42:00 -0000	1.2
@@ -3,14 +3,16 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="get_presentaiton">      
+<fullquery name="get_presentation">      
       <querytext>
       
 select p.public_p,
        p.pres_title as presentation_title,
        acs_permission.permission_p(:pres_item_id, :user_id, 'wp_admin_presentation') as admin_p,
        acs_permission.permission_p(:pres_item_id, :user_id, 'wp_delete_presentation') as delete_p,
-       ao.creation_user
+       ao.creation_user,
+       p.show_comments_p,
+       p.presentation_id
 from cr_wp_presentations p,
      cr_items i,
      acs_objects ao
@@ -21,19 +23,23 @@
       </querytext>
 </fullquery>
 
- 
-<fullquery name="get_viewers">      
+
+<fullquery name="get_users">      
       <querytext>
       
-    select first_names || ' ' || last_name as full_name,
-           person_id,
-           acs_permission.permission_p(:pres_item_id, person_id, 'wp_view_presentation') as view_p,
-           acs_permission.permission_p(:pres_item_id, person_id, 'wp_edit_presentation') as edit_p,
-           acs_permission.permission_p(:pres_item_id, person_id, 'wp_admin_presentation') as admin_p
-    from persons
-    where acs_permission.permission_p(:pres_item_id, person_id, 'wp_view_presentation') = 't'
-    or    acs_permission.permission_p(:pres_item_id, person_id, 'wp_edit_presentation') = 't'
-    or    acs_permission.permission_p(:pres_item_id, person_id, 'wp_admin_presentation') = 't'
+    select distinct (p.person_id),
+           p.first_names || ' ' || p.last_name as full_name,
+           perm.privilege
+    from persons p,
+         acs_permissions perm
+    where perm.object_id = :pres_item_id
+    and   perm.grantee_id = p.person_id
+    and
+    (perm.privilege = 'wp_view_presentation'
+     or perm.privilege = 'wp_edit_presentation'
+     or perm.privilege = 'wp_admin_presentation'
+    )
+    order by p.person_id, perm.privilege ASC
 
       </querytext>
 </fullquery>