Index: openacs-4/packages/file-storage/www/folder-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/folder-chunk.adp	2 Apr 2002 06:50:49 -0000	1.4
+++ openacs-4/packages/file-storage/www/folder-chunk.adp	2 Apr 2002 15:25:37 -0000	1.5
@@ -4,26 +4,34 @@
       <td>&nbsp;</td>
       <td>Name</td>
       <td>Action</td>
-      <td>Size (bytes)</td>
+      <td>Size</td>
       <td>Type</td>
       <td>Last Modified</td>
     </tr>
 <multiple name="contents">
     <tr>
 <if @contents.type@ eq "Folder">
       <td><img src="graphics/folder.gif"></td>
-      <td><a href="index?folder_id=@contents.file_id@">@contents.name@</a></td>
+      <td>
+        <a href="index?folder_id=@contents.file_id@">@contents.name@</a>
+<if @contents.new_p@>( new )</if>
+      </td>
       <td>&nbsp;</td>
-      <td>&nbsp;</td>
+      <td>
+        @contents.content_size@ item<if @contents.content_size@ ne 1>s</if>
+      </td>
       <td>Folder</td>
-      <td>&nbsp;</td>
+      <td>@contents.last_modified@</td>
 </if>
 <else>
       <td><img src="graphics/file.gif"></td>
-      <td><if @contents.versioned_p@ eq t><a href="file?file_id=@contents.file_id@">@contents.name@</a></if><else>@contents.name@</else></td>
       <td>
+      <if @contents.versioned_p@ eq t><a href="file?file_id=@contents.file_id@">@contents.name@</a></if><else>@contents.name@</else>
+<if @contents.new_p@>( new )</if>
+      </td>
+      <td>
         [<small><if @contents.url_p@ eq t><a href=url-goto?url_id=@contents.file_id@>go to</a><if @contents.write_p@ eq 1>&nbsp;|&nbsp;<a href="simple-edit?object_id=@contents.file_id@">edit</a></if></if><else><a href="download/index?version_id=@contents.live_revision@">download</a></else><if @contents.delete_p@ eq 1 or @contents.admin_p@ eq 1>&nbsp;|&nbsp;<a href="<if @contents.versioned_p@ eq t>file-delete?file_id=@contents.file_id@</if><else>simple-delete?folder_id=@folder_id@&object_id=@contents.file_id@</else>">delete</a></if>]</td>
-      <td>@contents.content_size@</td>
+      <td>@contents.content_size@ byte<if @contents.content_size@ ne 1>s</if></td>
       <td>@contents.type@</td>
       <td>@contents.last_modified@</td>
 </else>
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	8 Mar 2002 00:26:11 -0000	1.2
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	2 Apr 2002 15:25:37 -0000	1.3
@@ -19,10 +19,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
Index: openacs-4/packages/file-storage/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/www/index.adp	2 Apr 2002 06:50:49 -0000	1.8
+++ openacs-4/packages/file-storage/www/index.adp	2 Apr 2002 15:25:37 -0000	1.9
@@ -3,26 +3,51 @@
 <property name="header">@folder_name@</property>
 <property name="context_bar">@context_bar@</property>
 
-<ul>
+<table>
 <if @write_p@ eq 1>
-  <li><a href="file-add?folder_id=@folder_id@">Upload a file</a> &nbsp; &nbsp; | &nbsp; &nbsp; <a href="simple-add?folder_id=@folder_id@">Create a URL</a>
-  <li><a href="folder-create?parent_id=@folder_id@">Create a new
-  folder</a>
+  <tr>
+    <td width="5%"><li></td>
+    <td><a href="file-add?folder_id=@folder_id@">Upload a file</a>&nbsp; &nbsp; | &nbsp; &nbsp; <a href="simple-add?folder_id=@folder_id@">Create a URL</a>
+  </tr>
+  <tr>
+    <td><li></td>
+    <td><a href="folder-create?parent_id=@folder_id@">Create a new folder</a></td>
+  </tr>
 </if>
-<p>
 <if @admin_p@ eq 1>
-  <li><a href="/permissions/one?object_id=@folder_id@">Modify
-  permissions on this folder</a>
+  <tr><td colspan="2"><br></td></tr>
+  <tr>
+    <td><li></td>
+    <td>
+      <a href="/permissions/one?object_id=@folder_id@">
+        Modify permissions on this folder
+      </a>
+    </td>
+  </tr>
 </if>
-<p>
 <if @delete_p@ eq 1 and @nonroot_folder_p@ ne 0 and @n_contents@ eq 0>
-  <li><a href="folder-delete?folder_id=@folder_id@">Delete this folder</a>
+  <tr><td colspan="2"><br></td></tr>
+  <tr>
+    <td><li></td>
+    <td>
+      <a href="folder-delete?folder_id=@folder_id@">Delete this folder</a>
+    </td>
+  </tr>
 </if>
-</ul>
+  <tr><td colspan="2"><br></td></tr>
+  <tr>
+    <td><li></td>
+    <td>
+  <formtemplate id="n_past_days_form">
+      Show files modified in the past <formwidget id="n_past_days"> days as new.
+  </formtemplate>
+    </td>
+  </tr>
+</table>
 
-<form method=POST action="search">
-Search file names for
-<input type=text size=30 name=query>
+<form method="post" action="search">
+  Search file names for
+  <input type="text" size="30" name="query">
 </form>
 
-<include src="folder-chunk" folder_id=@folder_id@ viewing_user_id=@user_id@>
+<include src="folder-chunk" folder_id=@folder_id@ viewing_user_id=@user_id@ n_past_days=@n_past_days@>
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