Index: openacs-4/packages/dotlrn/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/folder-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/folder-chunk.tcl	29 Mar 2002 19:14:46 -0000	1.4
+++ openacs-4/packages/dotlrn/www/folder-chunk.tcl	4 Apr 2002 03:01:45 -0000	1.5
@@ -35,10 +35,17 @@
     set viewing_user_id [acs_magic_object "the_public"]
 }
 
+if {![exists_and_not_null n_past_days]} {
+    set n_past_days -1
+}
+
 set folder_name [fs_get_folder_name $folder_id]
 
-template::util::list_of_ns_sets_to_multirow \
-    -rows [fs::get_folder_contents -folder_id $folder_id -user_id $viewing_user_id] \
-    -var_name "contents"
+set rows [fs::get_folder_contents \
+    -folder_id $folder_id \
+    -user_id $viewing_user_id \
+    -n_past_days $n_past_days \
+]
+template::util::list_of_ns_sets_to_multirow -rows $rows -var_name "contents"
 
 ad_return_template