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.10 -r1.11
--- openacs-4/packages/dotlrn-fs/www/all-objects.tcl	9 Aug 2002 18:39:29 -0000	1.10
+++ openacs-4/packages/dotlrn-fs/www/all-objects.tcl	5 Nov 2002 17:21:23 -0000	1.11
@@ -30,15 +30,18 @@
     {orderby "folder_name,name"}
 } -properties {
     n_past_days:onevalue
+    days_singular_or_plural:onevalue
     orderby:onevalue
     table:onevalue
 }
 
 set user_id [ad_verify_and_get_user_id]
 
+set days_singular_or_plural [ad_decode $n_past_days "1" [_ dotlrn-fs.day] [_ dotlrn-fs.days]]
+
 form create n_past_days_form
 
-set options {{All 999999} {1 1} {2 2} {3 3} {7 7} {14 14} {30 30}}
+set options [list [list [_ dotlrn-fs.All] 999999] {1 1} {2 2} {3 3} {7 7} {14 14} {30 30}]
 element create n_past_days_form n_past_days \
     -label "" \
     -datatype text \
@@ -48,7 +51,7 @@
     -value $n_past_days
 
 element create n_past_days_form orderby \
-    -label "Order By" \
+    -label "[_ dotlrn-fs.Order_By]" \
     -datatype text \
     -widget hidden \
     -value $orderby
@@ -60,16 +63,16 @@
 
 set table_def [list]
 
-lappend table_def [list name Name {fs_objects.name $order} "<td width=\"30%\"><a href=\"\[ad_decode \$type folder \"\[site_node_object_map::get_url -object_id \$object_id]?folder_id=\$object_id\" url \"\[site_node_object_map::get_url -object_id \$parent_id]url-goto?url_id=\$object_id\" \"\[site_node_object_map::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=\"\[site_node_object_map::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 {last_modified {Last Modified} {fs_objects.last_modified $order} {<td align=\"center\">[util_AnsiDatetoPrettyDate $last_modified]</td>}}
+lappend table_def [list name [_ dotlrn-fs.Name] {fs_objects.name $order} "<td width=\"30%\"><a href=\"\[ad_decode \$type folder \"\[site_node_object_map::get_url -object_id \$object_id]?folder_id=\$object_id\" url \"\[site_node_object_map::get_url -object_id \$parent_id]url-goto?url_id=\$object_id\" \"\[site_node_object_map::get_url -object_id \$parent_id]download/\$name?version_id=\$live_revision\"]\">\$name</a></td>"]
+lappend table_def [list folder_name [_ dotlrn-fs.Folder] {} "<td width=\"30%\"><a href=\"\[site_node_object_map::get_url -object_id \$parent_id]?folder_id=\$parent_id\">\$folder_name</a></td>"]
+lappend table_def [list type [_ dotlrn-fs.Type] {fs_objects.type $order} {c}]
+lappend table_def [list content_size [_ dotlrn-fs.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 [list last_modified [_ dotlrn-fs.Last_Modified] {fs_objects.last_modified $order} {<td align=\"center\">[util_AnsiDatetoPrettyDate $last_modified]</td>}]
 
 set dotlrn_package_key [dotlrn::package_key]
 
 set table [ad_table \
-    -Tmissing_text {<blockquote><i>No contents found.</i></blockquote>} \
+    -Tmissing_text "<blockquote><i>[_ dotlrn-fs.No_contents_found]</i></blockquote>" \
     -Torderby $orderby \
     -Ttable_extra_html {width="95%"} \
     select_folder_contents \