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.5 -r1.6
--- openacs-4/packages/wp-slim/www/index.tcl	28 Aug 2003 09:42:00 -0000	1.5
+++ openacs-4/packages/wp-slim/www/index.tcl	22 Sep 2003 18:41:27 -0000	1.6
@@ -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 index.tcl,v 1.4.2.1 2003/05/21 15:31:03 rocaelh Exp
+    @cvs-id $Id$
 } {
     {show_age:integer "14"}
     {show_user "yours"}
@@ -24,21 +24,28 @@
 set show_age_value "show_age=$show_age"
 
 if {$show_age != 0} {
-    set extra_where_clauses [db_map extra_where_clauses]
+    if {[db_type] == "oracle"} { set date sysdate } else { set date "now()" }
+    set extra_where_clauses "and ao.creation_date >= ($date - $show_age)"
 } else {
     set extra_where_clauses ""
 }
 
 if {$user_id == 0} {
-    db_multirow allpresentations get_all_public_presentations { *SQL* }
+    db_multirow allpresentations get_all_public_presentations { *SQL* } {
+	set creation_date [lc_time_fmt $creation_date "%Q"]
+    }
     
     set return_url [ns_urlencode [ad_conn url]]
     ad_return_template index-unregistered
 } else {
-    db_multirow presentations get_my_presentations { *SQL* }
+    db_multirow presentations get_my_presentations { *SQL* } {
+	set creation_date [lc_time_fmt $creation_date "%Q"]
+    }
 
     if {$show_user == "all"} {
-	db_multirow allpresentations get_all_visible_presentations { *SQL* }
+	db_multirow allpresentations get_all_visible_presentations { *SQL* } {
+	    set creation_date [lc_time_fmt $creation_date "%Q"]
+	}
     }
 
     ad_return_template index