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@
|