Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/www/index.tcl	13 Mar 2002 21:17:12 -0000	1.10
+++ openacs-4/packages/file-storage/www/index.tcl	2 Apr 2002 15:25:37 -0000	1.11
@@ -4,9 +4,10 @@
 
     @author Kevin Scaldeferri (kevin@arsdigita.com)
     @creation-date 6 Nov 2000
-    @cvs-id $Id$
+    @version $Id$
 } {
     {folder_id:integer [fs_get_root_folder]}
+    {n_past_days:integer "-1"}
 } -validate {
     valid_folder -requires {folder_id:integer} {
 	if ![fs_folder_p $folder_id] {
@@ -52,4 +53,25 @@
 
 set n_contents [fs::get_folder_contents_count -folder_id $folder_id -user_id $user_id]
 
+form create n_past_days_form
+
+set options {{0 -1} {1 1} {2 2} {3 3} {7 7} {14 14} {30 30}}
+element create n_past_days_form n_past_days \
+    -label "" \
+    -datatype text \
+    -widget select \
+    -options $options \
+    -html {onChange document.n_past_days_form.submit()} \
+    -value $n_past_days
+
+element create n_past_days_form folder_id \
+    -label "Folder ID" \
+    -datatype text \
+    -widget hidden \
+    -value $folder_id
+
+if {[form is_valid n_past_days_form]} {
+    form get_values n_past_days_form n_past_days folder_id
+}
+
 ad_return_template