Index: openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml 5 Nov 2002 17:21:22 -0000 1.1 @@ -0,0 +1,27 @@ + + + + + %new_value%'s Shared Files + %community_name%'s Files + Size (bytes) + %community_name%'s Public Files + Type + %new_value%'s Files + Size + %user_name%'s Files + Folder + Showing files modified within the past %n_past_days% %days_singular_or_plural%. + Top Offenders + day + %user_name%'s Shared Files + No top offending folders to display + days + All + Name + All items + Last Modified + User Folders + No contents found. + Order By + Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v diff -u -r1.77 -r1.78 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 9 Aug 2002 18:39:28 -0000 1.77 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 5 Nov 2002 17:21:23 -0000 1.78 @@ -63,7 +63,7 @@ set package_id [dotlrn::mount_package \ -url [package_key] \ -package_key [package_key] \ - -pretty_name "User Folders" \ + -pretty_name "[_ dotlrn-fs.User_Folders]" \ -directory_p t \ ] @@ -107,7 +107,7 @@ set community_name [dotlrn_community::get_community_name $community_id] set folder_id [fs::get_root_folder -package_id $package_id] - fs::rename_folder -folder_id $folder_id -name "${community_name}'s Files" + fs::rename_folder -folder_id $folder_id -name "[_ dotlrn-fs.lt_community_names_Files]" set node_id [site_node::get_node_id_from_object_id -object_id $package_id] site_node_object_map::new -object_id $folder_id -node_id $node_id @@ -176,7 +176,7 @@ # Set up public folder set public_folder_id [fs::new_folder \ -name public \ - -pretty_name "${community_name}'s Public Files" \ + -pretty_name "[_ dotlrn-fs.lt_community_names_Publi]" \ -parent_id $folder_id \ ] @@ -254,7 +254,7 @@ set user_root_folder_id [fs::new_folder \ -name [get_user_root_folder_name -user_id $user_id] \ -parent_id $root_folder_id \ - -pretty_name "${user_name}'s Files" \ + -pretty_name "[_ dotlrn-fs.user_names_Files]" \ -creation_user $user_id \ ] @@ -280,7 +280,7 @@ set user_shared_folder_id [fs::new_folder \ -name [get_user_shared_folder_name -user_id $user_id] \ -parent_id $user_root_folder_id \ - -pretty_name "${user_name}'s Shared Files" \ + -pretty_name "[_ dotlrn-fs.lt_user_names_Shared_Fil]" \ -creation_user $user_id \ ] @@ -459,7 +459,7 @@ set community_name [dotlrn_community::get_community_name $new_community_id] set folder_id [fs::get_root_folder -package_id $package_id] - fs::rename_folder -folder_id $folder_id -name "${community_name}'s Files" + fs::rename_folder -folder_id $folder_id -name "[_ dotlrn-fs.lt_community_names_Files]" set node_id [site_node::get_node_id_from_object_id -object_id $package_id] site_node_object_map::new -object_id $folder_id -node_id $node_id @@ -492,7 +492,7 @@ # set public_folder_id [fs::new_folder \ -name public \ - -pretty_name "${community_name}'s Public Files" \ + -pretty_name "[_ dotlrn-fs.lt_community_names_Publi]" \ -parent_id $folder_id \ ] @@ -664,11 +664,11 @@ } { fs::rename_folder \ -folder_id [get_community_root_folder -community_id $community_id] \ - -name "${new_value}'s Files" + -name "[_ dotlrn-fs.new_values_Files]" fs::rename_folder \ -folder_id [get_community_shared_folder -community_id $community_id] \ - -name "${new_value}'s Shared Files" + -name "[_ dotlrn-fs.lt_new_values_Shared_Fil]" } ad_proc -public get_user_default_page {} { @@ -781,5 +781,4 @@ return [db_string select_community_shared_folder {} -default ""] } - } Index: openacs-4/packages/dotlrn-fs/www/all-objects.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/all-objects.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-fs/www/all-objects.adp 28 Apr 2002 17:16:57 -0000 1.1 +++ openacs-4/packages/dotlrn-fs/www/all-objects.adp 5 Nov 2002 17:21:23 -0000 1.2 @@ -1,12 +1,12 @@ -All items +#dotlrn-fs.All_items# 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} ""] -lappend table_def [list folder_name Folder {} ""] -lappend table_def {type Type {fs_objects.type $order} {c}} -lappend table_def {content_size Size {fs_objects.content_size $order} {}} -lappend table_def {last_modified {Last Modified} {fs_objects.last_modified $order} {}} +lappend table_def [list name [_ dotlrn-fs.Name] {fs_objects.name $order} ""] +lappend table_def [list folder_name [_ dotlrn-fs.Folder] {} ""] +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} {}] +lappend table_def [list last_modified [_ dotlrn-fs.Last_Modified] {fs_objects.last_modified $order} {}] set dotlrn_package_key [dotlrn::package_key] set table [ad_table \ - -Tmissing_text {
No contents found.
} \ + -Tmissing_text "
[_ dotlrn-fs.No_contents_found]
" \ -Torderby $orderby \ -Ttable_extra_html {width="95%"} \ select_folder_contents \ Index: openacs-4/packages/dotlrn-fs/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/index.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn-fs/www/index.adp 9 Aug 2002 18:39:29 -0000 1.4 +++ openacs-4/packages/dotlrn-fs/www/index.adp 5 Nov 2002 17:21:23 -0000 1.5 @@ -25,8 +25,8 @@
  		• - Showing files modified within the past days. + #dotlrn-fs.lt_Showing_files_modifie#
    \$name\$folder_name[ad_decode $type folder "$content_size item[ad_decode $content_size 1 {} s]" url {} "$content_size byte[ad_decode $content_size 1 {} s]"][util_AnsiDatetoPrettyDate $last_modified]\$name\$folder_name[ad_decode $type folder "$content_size item[ad_decode $content_size 1 {} s]" url {} "$content_size byte[ad_decode $content_size 1 {} s]"][util_AnsiDatetoPrettyDate $last_modified]
    - - + + @@ -44,5 +44,5 @@ - No top offending folders to display + #dotlrn-fs.lt_No_top_offending_fold# Index: openacs-4/packages/dotlrn-fs/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn-fs/www/index.tcl 9 Aug 2002 18:39:29 -0000 1.5 +++ openacs-4/packages/dotlrn-fs/www/index.tcl 5 Nov 2002 17:21:23 -0000 1.6 @@ -36,7 +36,7 @@ permission::require_permission -object_id $package_id -privilege admin set context_bar {} -set title "Top Offenders" +set title "[_ dotlrn-fs.Top_Offenders]" set fs_package_key [dotlrn_fs::package_key]
    FolderSize (bytes)#dotlrn-fs.Folder##dotlrn-fs.Size_bytes#