Index: openacs-4/packages/wp-slim/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/index-oracle.xql	13 Mar 2002 22:50:53 -0000	1.2
+++ openacs-4/packages/wp-slim/www/index-oracle.xql	28 Aug 2003 09:42:00 -0000	1.3
@@ -3,6 +3,14 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
+<fullquery name="extra_where_clauses">
+      <querytext>
+
+         and ao.create_date >= (sysdate - $show_age)
+
+      </querytext>
+</fullquery>
+
 <fullquery name="get_all_public_presentations">      
       <querytext>
        
@@ -17,6 +25,7 @@
 	and   ao.creation_user = p.person_id
 	and   pres.public_p = 't'
 	and   ao.context_id = :package_id
+	$extra_where_clauses
     
       </querytext>
 </fullquery>
@@ -33,6 +42,7 @@
 	and   ao.object_id = i.item_id
 	and   ao.creation_user = :user_id
 	and   ao.context_id = :package_id
+        $extra_where_clauses
     
       </querytext>
 </fullquery>
@@ -52,8 +62,14 @@
 	and   ao.object_id = i.item_id
 	and   ao.creation_user <> :user_id
 	and   ao.creation_user = p.person_id
-	and   acs_permission.permission_p(i.item_id, :user_id, 'wp_view_presentation') = 't'
 	and   ao.context_id = :package_id
+	$extra_where_clauses
+	and exists (select 1
+        from acs_object_party_privilege_map m
+        where m.object_id = i.item_id
+        and m.party_id = :user_id
+        and m.privilege = 'wp_view_presentation')
+        $extra_where_clauses
     
       </querytext>
 </fullquery>