Index: openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	17 May 2004 15:15:12 -0000	1.28
+++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	8 Oct 2004 21:10:51 -0000	1.29
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="file-storage" package_version="5.1.0a2" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="file-storage" package_version="5.1.0a5" locale="en_US" charset="ISO-8859-1">
 
   <msg key="Action">Action</msg>
   <msg key="Actions">Actions:</msg>
@@ -28,8 +28,8 @@
   <msg key="Edit_Folder">Edit Folder</msg>
   <msg key="Edit_URL">Edit URL</msg>
   <msg key="file">file</msg>
-  <msg key="link">link</msg>
   <msg key="file_delete_page_title">Delete %title%</msg>
+  <msg key="File_deleted">File deleted</msg>
   <msg key="file_edit_page_title">Rename %title%</msg>
   <msg key="file_edit_page_title_1">Edit %pretty_name%</msg>
   <msg key="file_page_file_title_label">Title: %title%</msg>
@@ -38,7 +38,6 @@
   <msg key="Folder_available_via_WebDAV_at">This folder is available via WebDAV at %webdav_url%</msg>
   <msg key="folder_delete_page_title">Delete %folder_name%</msg>
   <msg key="Folder_ID">Folder ID</msg>
-  <msg key="Folder_available_via_WebDAV_at">This folder is available via WebDAV at %webdav_url%</msg> 
   <msg key="Folder_Name">Folder Name:</msg>
   <msg key="folder_type_pretty_name">folder</msg>
   <msg key="index_page_navigate_up_folder">Up to %up_name%</msg>
@@ -62,15 +61,21 @@
   <msg key="lt_Do_you_want_to_delete">Do you want to delete the listed items?</msg>
   <msg key="lt_Download_an_archive_o">Download an archive of the contents of this folder</msg>
   <msg key="lt_Either_there_is_alrea">Either there is already a folder with the name &quot;%folder_name%&quot; or you clicked on the button more than once.  You can use the Back button to return and choose a new name, or &lt;a href=&quot;%directory_url%&quot;&gt;return to the directory listing&lt;/a&gt; to see if your folder is there.</msg>
+  <msg key="lt_File-Storage_folder_f">File-Storage folder: %folder_name%\n</msg>
+  <msg key="lt_File_Storage_Notifica">File Storage Notification</msg>
   <msg key="lt_Folder_folder_name_is">Folder %folder_name% is empty.</msg>
   <msg key="lt_It_appears_that_there">It appears that there is already a file with that name in this folder (although possibly you clicked more than once on the submit button.)</msg>
   <msg key="lt_Leave_blank_for_linked_documents">Leave title blank when uploading multiple interlinked documents.</msg>
   <msg key="lt_Live_version_of_title">Live version of &quot;%title%&quot;</msg>
   <msg key="lt_Modify_permissions_on">Modify permissions on this file</msg>
   <msg key="lt_Modify_permissions_on_1">Modify permissions on this folder</msg>
   <msg key="lt_Moving_allowed_count_">Moving %allowed_count% items.</msg>
+  <msg key="lt_Name_of_the_action_ty">Name of the $action_type: %filename%\n</msg>
+  <msg key="lt_New_version_of_file_u">New version of file uploaded</msg>
+  <msg key="lt_New_Version_Uploaded_">New Version Uploaded for file: %filename%\n</msg>
   <msg key="lt_No_valid_items_to_be_">No valid items to be moved.</msg>
   <msg key="lt_not_allowed_count_ite">%not_allowed_count% items can not be moved</msg>
+  <msg key="lt_Notification_for_File">Notification for: File-Storage: %action_type%\n</msg>
   <msg key="lt_Please_enter_the_new_">Please enter the new name for this file:</msg>
   <msg key="lt_Select_the_folder_tha">Select the folder that you would like to copy &quot;%file_name%&quot; to</msg>
   <msg key="lt_Select_the_folder_tha_1">Select the folder that you would like to move &quot;%file_name%&quot; under</msg>
@@ -90,6 +95,8 @@
   <msg key="lt_Use_the_Browse_button">Use the &quot;Browse...&quot; button to locate your file, 
     then click &quot;Open&quot;.</msg>
   <msg key="lt_version_not_valid">The specified version is not valid.</msg>
+  <msg key="lt_Version_Notes_descrip">Version Notes: %description%\n</msg>
+  <msg key="lt_View_folder_contents_">View folder contents: %url_version% \n\n</msg>
   <msg key="lt_We_got_an_error_that_">We got an error that we couldn't readily identify.  Please let the system owner know about this.</msg>
   <msg key="lt_We_received_an_error_">We received an error from the database.  Probably
     the folder you selected already contains a file with the same name.</msg>
@@ -105,7 +112,9 @@
   <msg key="Multiple_files">Multiple files:</msg>
   <msg key="Name">Name</msg>
   <msg key="new">new</msg>
+  <msg key="New_File_Uploaded">New File Uploaded</msg>
   <msg key="New_Folder">New Folder</msg>
+  <msg key="New_URL_Uploaded">New URL Uploaded</msg>
   <msg key="No_such_type">No such type</msg>
   <msg key="no_such_URL">no such URL</msg>
   <msg key="Permissions">Permissions</msg>
@@ -132,7 +141,9 @@
   <msg key="Upload_a_new_version">Upload a new version</msg>
   <msg key="Upload_New_File">Upload New File</msg>
   <msg key="Upload_New_Version">Upload New Version</msg>
+  <msg key="Uploaded_by_ownern">Uploaded by: %owner%\n</msg>
   <msg key="URL">URL:</msg>
+  <msg key="URL_deleted">URL deleted</msg>
   <msg key="version_add_page_title">Upload New Version of %title%</msg>
   <msg key="version_delete_page_title">Delete %version_name%</msg>
   <msg key="Version_filename">Version filename</msg>
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
     }