Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Jun 2004 14:47:48 -0000	1.44
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	8 Oct 2004 21:10:51 -0000	1.45
@@ -796,16 +796,16 @@
     set root_folder [fs_get_root_folder]
 
     if {[string equal $action "new_file"]} {
-        set action_type {New File Uploaded}
+        set action_type "[_ file-storage.New_File_Uploaded]"
     } elseif {[string equal $action "new_url"]} {
-        set action_type {New URL Uploaded}
+        set action_type "[_ file-storage.New_URL_Uploaded]"
         set file_id $url_id
     } elseif {[string equal $action "new_version"]} {
-        set action_type {New version of file uploaded}
+        set action_type "[_ file-storage.lt_New_version_of_file_u]"
     } elseif {[string equal $action "delete_file"]} {
-        set action_type {File deleted}
+        set action_type "[_ file-storage.File_deleted]"
     } elseif {[string equal $action "delete_url"]} {
-        set action_type {URL deleted}
+        set action_type "[_ file-storage.URL_deleted]"
     } else {
         error "Unknown file-storage notification action: $action"
     }
@@ -830,30 +830,32 @@
     
     # Set email message body - "text only" for now
     set text_version ""
-    append text_version "Notification for: File-Storage: $action_type\n"
-    append text_version "File-Storage folder: [fs_get_folder_name $folder_id]\n"
+    append text_version "[_ file-storage.lt_Notification_for_File]"
+    set folder_name [fs_get_folder_name $folder_id]
+    append text_version "[_ file-storage.lt_File-Storage_folder_f]"
 
     if {[string equal $action "new_version"]} {
-        append text_version "New Version Uploaded for file: $filename\n"
+        append text_version "[_ file-storage.lt_New_Version_Uploaded_]"
     } else {
-        append text_version "Name of the $action_type: $filename\n"
+        append text_version "[_ file-storage.lt_Name_of_the_action_ty]"
     }
     if {[info exists owner]} {
-        append text_version "Uploaded by: $owner\n"
+        append text_version "[_ file-storage.Uploaded_by_ownern]"
     }
     if {[info exists description]} {
-        append text_version "Version Notes: $description\n" 
+        append text_version "[_ file-storage.lt_Version_Notes_descrip]" 
     }
 
-    append text_version "View folder contents: $url$path1?folder_id=$folder_id \n\n"
+    ser url_version "$url$path1?folder_id=$folder_id"
+    append text_version "[_ file-storage.lt_View_folder_contents_]"
     set new_content $text_version
     # Do the notification for the file-storage
     
     notification::new \
         -type_id [notification::type::get_type_id \
                       -short_name fs_fs_notif] \
         -object_id $folder_id \
-        -notif_subject {File Storage Notification} \
+        -notif_subject "[_ file-storage.lt_File_Storage_Notifica]" \
         -notif_text $new_content
 
     # walk through all folders up to the root folder
@@ -864,7 +866,7 @@
             -type_id [notification::type::get_type_id \
                           -short_name fs_fs_notif] \
             -object_id $parent_id \
-            -notif_subject {File Storage Notification} \
+            -notif_subject "[_ file-storage.lt_File_Storage_Notifica] \
             -notif_text $new_content
         set folder_id $parent_id
     }