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.2.1 -r1.2.2.2
--- openacs-4/packages/wp-slim/www/index-oracle.xql	21 May 2003 15:31:03 -0000	1.2.2.1
+++ openacs-4/packages/wp-slim/www/index-oracle.xql	1 Jun 2003 18:16:05 -0000	1.2.2.2
@@ -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>
        
Index: openacs-4/packages/wp-slim/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index-postgresql.xql,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/wp-slim/www/index-postgresql.xql	21 May 2003 15:31:03 -0000	1.2.2.1
+++ openacs-4/packages/wp-slim/www/index-postgresql.xql	1 Jun 2003 18:16:05 -0000	1.2.2.2
@@ -3,6 +3,14 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
+<fullquery name="extra_where_clauses">
+      <querytext>
+
+        and ao.creation_date >= (current_timestamp - cast('$show_age days' as interval))
+
+      </querytext>
+</fullquery>
+
 <fullquery name="get_all_public_presentations">      
       <querytext>
        
Index: openacs-4/packages/wp-slim/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/wp-slim/www/index.tcl	21 May 2003 15:31:03 -0000	1.4.2.1
+++ openacs-4/packages/wp-slim/www/index.tcl	1 Jun 2003 18:16:05 -0000	1.4.2.2
@@ -8,7 +8,7 @@
     @author Rocael Hernandez (roc@viaro.net) openacs package owner
     @author Paul Konigsberg (paul@arsdigita.com, original)
     @creation-date Wed Nov  8 17:33:21 2000
-    @cvs-id $Id$
+    @cvs-id index.tcl,v 1.4.2.1 2003/05/21 15:31:03 rocaelh Exp
 } {
     {show_age:integer "14"}
     {show_user "yours"}
@@ -24,8 +24,7 @@
 set show_age_value "show_age=$show_age"
 
 if {$show_age != 0} {
-    if {[db_type] == "oracle"} { set date sysdate } else { set date "now()" }
-    set extra_where_clauses "and ao.creation_date >= ($date - $show_age)"
+    set extra_where_clauses [db_map extra_where_clauses]
 } else {
     set extra_where_clauses ""
 }