Index: openacs-4/packages/file-storage/www/folder-contents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-contents.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/folder-contents.tcl 18 May 2002 20:08:46 -0000 1.4
+++ openacs-4/packages/file-storage/www/folder-contents.tcl 22 May 2002 08:50:52 -0000 1.5
@@ -65,10 +65,10 @@
set table_def [list]
-lappend table_def [list name Name {fs_objects.name $order} "
\$name | "]
+lappend table_def [list name Name {fs_objects.name $order} "\$name | "]
lappend table_def [list folder_name Folder {} "\$folder_name | "]
lappend table_def {type Type {fs_objects.type $order} {c}}
-lappend table_def {content_size Size {fs_objects.content_size $order} {[ad_decode $type Folder "$content_size item[ad_decode $content_size 1 {} s]" URL {} "$content_size byte[ad_decode $content_size 1 {} s]"] | }}
+lappend table_def {content_size Size {fs_objects.content_size $order} {[ad_decode $type folder "$content_size item[ad_decode $content_size 1 {} s]" url {} "$content_size byte[ad_decode $content_size 1 {} s]"] | }}
lappend table_def {last_modified {Last Modified} {fs_objects.last_modified $order} {[util_AnsiDatetoPrettyDate $last_modified] | }}
if {$recurse_p} {
@@ -82,7 +82,7 @@
connect by acs_objects.context_id = prior acs_objects.object_id
start with acs_objects.context_id = :folder_id)
and fs_objects.parent_id = fs_folders.folder_id
- and fs_objects.type <> 'Folder'
+ and fs_objects.type <> 'folder'
and fs_objects.last_modified >= (sysdate - :n_past_days)
and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
[ad_order_by_from_sort_spec $orderby $table_def]