Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	7 Apr 2002 01:13:29 -0000	1.5
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	18 Apr 2002 19:24:47 -0000	1.6
@@ -21,14 +21,58 @@
 
     @author Arjun Sanyal (arjun@openforce.net)
     @cvs_id $Id$
+} -query {
+    {n_past_days "-1"}
 } -properties {
+    user_id:onevalue
+    user_root_folder:onevalue
+    user_root_folder_present_p:onevalue
+    write_p:onevalue
+    admin_p:onevalue
+    delete_p:onevalue
+    url:onevalue
     folders:multirow
 }
 
 array set config $cf
 set user_id [ad_conn user_id]
 set list_of_folder_ids $config(folder_id)
 
+set user_root_folder [dotlrn_fs::get_user_root_folder -user_id $user_id]
+set user_root_folder_present_p 0
+set write_p 0
+set admin_p 0
+set delete_p 0
+set url ""
+if {![empty_string_p $user_root_folder] && [lsearch -exact $list_of_folder_ids $user_root_folder] != -1} {
+    set user_root_folder_present_p 1
+
+    set write_p [permission::permission_p -object_id $user_root_folder -privilege "write"]
+    set admin_p [permission::permission_p -object_id $user_root_folder -privilege "admin"]
+
+    set delete_p $admin_p
+    if {!$delete_p} {
+        set delete_p [permission::permission_p -object_id $user_root_folder -privilege "delete"]
+    }
+
+    set url [portal::mapping::get_url -object_id $user_root_folder]
+}
+
+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
+
+if {[form is_valid n_past_days_form]} {
+    form get_values n_past_days_form n_past_days
+}
+
 db_multirow folders select_fs_objects {}
 
 ad_return_template