Index: openacs-4/packages/dotlrn-fs/dotlrn-fs.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/dotlrn-fs.info,v diff -u -r1.23.2.2.4.3 -r1.23.2.2.4.4 --- openacs-4/packages/dotlrn-fs/dotlrn-fs.info 27 Aug 2004 18:21:21 -0000 1.23.2.2.4.3 +++ openacs-4/packages/dotlrn-fs/dotlrn-fs.info 29 Aug 2004 20:50:21 -0000 1.23.2.2.4.4 @@ -7,12 +7,12 @@ f t - + OpenACS 2004-03-10 OpenACS - + Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-install-procs.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-install-procs.tcl 6 Aug 2004 02:06:02 -0000 1.1.2.1 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-install-procs.tcl 29 Aug 2004 20:50:22 -0000 1.1.2.2 @@ -37,6 +37,9 @@ 2.1.0d1 2.1.0d2 { dotlrn_fs::install::upgrade::localize_folder_names } + 2.1.a2 2.1.a3 { + dotlrn_fs::install::upgrade::localize_folder_names + } } } @@ -69,8 +72,8 @@ if {[string match "#*#" $folder_key]} { # get the localized name in the site wide locale set folder_name [lang::util::localize \ - -locale [lang::system::site_wide_locale] \ - $folder_key] + $folder_key \ + [lang::system::site_wide_locale]] # update all folders with that message key to the # localized name db_dml update_folder_name "update cr_items set name=:folder_name where name=:folder_key and content_type='content_folder'" 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.86.6.12 -r1.86.6.13 --- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 29 Aug 2004 01:00:16 -0000 1.86.6.12 +++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 29 Aug 2004 20:50:22 -0000 1.86.6.13 @@ -145,7 +145,7 @@ foreach folder [split $folder_list ','] { set folder [string trim $folder] set a_folder_id [fs::new_folder \ - -name [lang::util::localize -locale [lang::system::site_wide_locale] $folder] \ + -name [lang::util::localize $folder [lang::system::site_wide_locale]] \ -pretty_name $folder \ -parent_id $folder_id ]