Index: openacs-4/packages/dotlrn-fs/www/all-objects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/all-objects.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-fs/www/all-objects.tcl	18 May 2002 20:28:00 -0000	1.5
+++ openacs-4/packages/dotlrn-fs/www/all-objects.tcl	22 May 2002 08:50:54 -0000	1.6
@@ -60,10 +60,10 @@
 
 set table_def [list]
 
-lappend table_def [list name Name {fs_objects.name $order} "<td width=\"30%\"><a href=\"\[ad_decode \$type Folder \"\[portal::mapping::get_url -object_id \$object_id]?folder_id=\$object_id\" URL \"\[portal::mapping::get_url -object_id \$parent_id]url-goto?url_id=\$object_id\" \"\[portal::mapping::get_url -object_id \$parent_id]download/\$name?version_id=\$live_revision\"]\">\$name</a></td>"]
+lappend table_def [list name Name {fs_objects.name $order} "<td width=\"30%\"><a href=\"\[ad_decode \$type folder \"\[portal::mapping::get_url -object_id \$object_id]?folder_id=\$object_id\" url \"\[portal::mapping::get_url -object_id \$parent_id]url-goto?url_id=\$object_id\" \"\[portal::mapping::get_url -object_id \$parent_id]download/\$name?version_id=\$live_revision\"]\">\$name</a></td>"]
 lappend table_def [list folder_name Folder {} "<td width=\"30%\"><a href=\"\[portal::mapping::get_url -object_id \$parent_id]?folder_id=\$parent_id\">\$folder_name</a></td>"]
 lappend table_def {type Type {fs_objects.type $order} {c}}
-lappend table_def {content_size Size {fs_objects.content_size $order} {<td align=\"center\">[ad_decode $type Folder "$content_size item[ad_decode $content_size 1 {} s]" URL {} "$content_size byte[ad_decode $content_size 1 {} s]"]</td>}}
+lappend table_def {content_size Size {fs_objects.content_size $order} {<td align=\"center\">[ad_decode $type folder "$content_size item[ad_decode $content_size 1 {} s]" url {} "$content_size byte[ad_decode $content_size 1 {} s]"]</td>}}
 lappend table_def {last_modified {Last Modified} {fs_objects.last_modified $order} {<td align=\"center\">[util_AnsiDatetoPrettyDate $last_modified]</td>}}
 
 set dotlrn_package_key [dotlrn::package_key]
@@ -88,7 +88,7 @@
                                                                                                       where sn.object_id = ap.package_id
                                                                                                       and ap.package_key = :dotlrn_package_key)))
     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]