Index: openacs-4/packages/file-storage/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-add-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-storage/www/file-add-2.tcl	5 Nov 2002 17:19:59 -0000	1.7
+++ openacs-4/packages/file-storage/www/file-add-2.tcl	12 Nov 2002 08:36:44 -0000	1.8
@@ -21,7 +21,7 @@
 	set n_bytes [file size ${upload_file.tmpfile}]
 	set max_bytes [ad_parameter "MaximumFileSize"]
 	if { $n_bytes > $max_bytes } {
-	    ad_complain [_ [ad_conn locale] file-storage.lt_Your_file_is_larger_t_1] "" [list max_number_of_bytes [util_commify_number $max_bytes]]]
+	    ad_complain [_ file-storage.lt_Your_file_is_larger_t_1] [list max_number_of_bytes [util_commify_number $max_bytes]]]
 	}
     }
 } 
@@ -97,7 +97,7 @@
  
        set folder_name "[_ file-storage.folder]"
        set folder_link "<a href=\"index?folder_id?$folder_id\">$folder_name</a>"
-       ad_return_complaint 1 "[_ [ad_conn locale] file-storage.lt_You_probably_clicked_ "" [list folder_link $folder_link]]"
+       ad_return_complaint 1 "[_ file-storage.lt_You_probably_clicked_ [list folder_link $folder_link]]"
 
        ad_script_abort
 }
Index: openacs-4/packages/file-storage/www/folder-contents.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-contents.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/www/folder-contents.tcl	5 Nov 2002 17:19:59 -0000	1.10
+++ openacs-4/packages/file-storage/www/folder-contents.tcl	12 Nov 2002 08:36:44 -0000	1.11
@@ -105,7 +105,7 @@
 
 set table [ad_table \
     -Torderby $orderby \
-    -Tmissing_text "<blockquote><i>[_ [ad_conn locale] file-storage.lt_Folder_folder_name_is] "" [list folder_name [fs::get_object_name -object_id $folder_id]]]</i></blockquote>" \
+    -Tmissing_text "<blockquote><i>[_ file-storage.lt_Folder_folder_name_is] [list folder_name [fs::get_object_name -object_id $folder_id]]]</i></blockquote>" \
     -Ttable_extra_html {width="95%"} \
     select_folder_contents \
     $sql \
Index: openacs-4/packages/file-storage/www/folder-create-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/folder-create-2.tcl	5 Nov 2002 17:19:59 -0000	1.4
+++ openacs-4/packages/file-storage/www/folder-create-2.tcl	12 Nov 2002 08:36:44 -0000	1.5
@@ -46,7 +46,7 @@
 
 } on_error {
 
-    ad_return_complaint 1 [_ [ad_conn locale] file-storage.lt_Either_there_is_alrea] "" [list folder_name $folder_name directory_url "index?folder_id=$parent_id"]]
+    ad_return_complaint 1 [_ file-storage.lt_Either_there_is_alrea] [list folder_name $folder_name directory_url "index?folder_id=$parent_id"]]
     
      ad_script_abort
 }
Index: openacs-4/packages/file-storage/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/www/simple-add.tcl	5 Nov 2002 17:19:59 -0000	1.5
+++ openacs-4/packages/file-storage/www/simple-add.tcl	12 Nov 2002 08:36:44 -0000	1.6
@@ -32,7 +32,7 @@
     return -code error "[_ file-storage.No_such_type]"
 }
 
-set context [fs_context_bar_list -final [_ [ad_conn locale] file-storage.Add_pretty_name "" [list pretty_name $pretty_name]]" $folder_id]
+set context [fs_context_bar_list -final [_ file-storage.Add_pretty_name [list pretty_name $pretty_name]] $folder_id]
 
 # Should probably generate the item_id and version_id now for
 # double-click protection
@@ -42,4 +42,3 @@
 if {[empty_string_p $title]} {
     set lock_title_p 0
 }
-
Index: openacs-4/packages/file-storage/www/version-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/www/version-add-2.tcl	5 Nov 2002 17:19:59 -0000	1.3
+++ openacs-4/packages/file-storage/www/version-add-2.tcl	12 Nov 2002 08:36:44 -0000	1.4
@@ -22,7 +22,7 @@
 	set max_bytes [ad_parameter "MaximumFileSize"]
 	if { $n_bytes > $max_bytes } {
             set number_of_bytes "[util_commify_number $max_bytes]"
-	    ad_complain [_ [ad_conn locale] file-storage.lt_Your_file_is_larger_t] "" [list number_of_bytes $number_of_bytes]]
+	    ad_complain [_ file-storage.lt_Your_file_is_larger_t] [list number_of_bytes $number_of_bytes]]
 	}
     }
 }