Index: openacs-4/packages/dotlrn/www/folder-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/folder-chunk.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/folder-chunk.adp 29 Mar 2002 19:14:46 -0000 1.3 +++ openacs-4/packages/dotlrn/www/folder-chunk.adp 4 Apr 2002 03:01:45 -0000 1.4 @@ -24,28 +24,53 @@   Name Action - Size (bytes) + Size Type Last Modified - - @contents.name@ + + + @contents.name@ +( new ) +   + + @contents.content_size@ items + + @contents.type@ + @contents.last_modified@ + + + + + + @contents.name@ +( new ) + + + [ edit | delete ] +   - Folder -   + @contents.type@ + @contents.last_modified@ - - @contents.name@ - (download) - @contents.content_size@ + + + @contents.name@ +( new ) + + + [ download | delete ] + + @contents.content_size@ bytes @contents.type@ @contents.last_modified@ + 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 Index: openacs-4/packages/fs-portlet/www/fs-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet-oracle.xql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/fs-portlet/www/fs-portlet-oracle.xql 29 Mar 2002 19:41:28 -0000 1.5 +++ openacs-4/packages/fs-portlet/www/fs-portlet-oracle.xql 4 Apr 2002 03:01:52 -0000 1.6 @@ -5,16 +5,16 @@ - select fs_folders_and_files.file_id, - fs_folders_and_files.name, - fs_folders_and_files.live_revision, - fs_folders_and_files.type, - fs_folders_and_files.content_size - from fs_folders_and_files - where fs_folders_and_files.file_id = :my_folder_id - and 't' = acs_permission.permission_p(fs_folders_and_files.file_id, :user_id, 'read') - order by fs_folders_and_files.sort_key, - fs_folders_and_files.name + select fs_objects.object_id, + fs_objects.name, + fs_objects.live_revision, + fs_objects.type, + fs_objects.content_size + from fs_objects + where fs_objects.object_id = :my_folder_id + and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read') + order by fs_objects.sort_key, + fs_objects.name Index: openacs-4/packages/fs-portlet/www/fs-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/fs-portlet/www/fs-portlet.adp 29 Mar 2002 19:25:48 -0000 1.6 +++ openacs-4/packages/fs-portlet/www/fs-portlet.adp 4 Apr 2002 03:01:52 -0000 1.7 @@ -24,7 +24,7 @@ - +  @folders.name@ @@ -43,7 +43,7 @@ - +  @folders.name@