Index: openacs-4/packages/file-storage/www/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/file-storage/www/move.tcl 10 May 2004 19:29:02 -0000 1.1.2.2 +++ openacs-4/packages/file-storage/www/move.tcl 11 May 2004 00:09:12 -0000 1.1.2.3 @@ -24,7 +24,7 @@ set move_message "" incr allowed_count } else { - set move_message "Not Allowed" + set move_message [_ file_storage.Not_Allowed] incr not_allowed_count } @@ -60,7 +60,7 @@ -name move_objects \ -multirow move_objects \ -elements { - name {label "Files to be moved"} + name {label \#file-storage.Files_to_be_moved\#} move_message {} } @@ -69,12 +69,12 @@ -pass_properties { item_id redirect_to_folder return_url } \ -multirow folder_tree \ -key folder_id \ - -no_data "No valid destination folders exist" \ + -no_data [_ file-storage.No_valid_destination_folders_exist] \ -elements { label { - label "Choose Destination Folder" + label "\#file-storage.Choose_Destination_Folder\#" link_url_col move_url - link_html {title "Move to @folder_tree.label@"} + link_html {title "\#file-storage.Move_to_folder_title\#"} display_template {
@folder_tree.label@
} } } @@ -84,10 +84,7 @@ } - set title "Move" - } -set context [list "Move Items"] -set title "Move Items" -set file_name "FIX ME" \ No newline at end of file +set context [list "\#file-storage.Move\#"] +set title "\#file-storage.Move\#"