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.48.2.8 -r1.48.2.9 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 26 Sep 2005 09:00:19 -0000 1.48.2.8 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 7 Oct 2005 15:15:05 -0000 1.48.2.9 @@ -1099,25 +1099,25 @@ # Set email message body - "text only" for now set text_version "" - append text_version "[_ file-storage.lt_Notification_for_File]" + append text_version "[_ file-storage.lt_Notification_for_File]\n" set folder_name [fs_get_folder_name $folder_id] - append text_version "[_ file-storage.lt_File-Storage_folder_f]" + append text_version "[_ file-storage.lt_File-Storage_folder_f]\n" if {[string equal $action "new_version"]} { - append text_version "[_ file-storage.lt_New_Version_Uploaded_]" + append text_version "[_ file-storage.lt_New_Version_Uploaded_]\n" } else { - append text_version "[_ file-storage.lt_Name_of_the_action_ty]" + append text_version "[_ file-storage.lt_Name_of_the_action_ty]\n" } if {[info exists owner]} { - append text_version "[_ file-storage.Uploaded_by_ownern]" + append text_version "[_ file-storage.Uploaded_by_ownern]\n" } if {[info exists description]} { - append text_version "[_ file-storage.lt_Version_Notes_descrip]" + append text_version "[_ file-storage.lt_Version_Notes_descrip]\n" } set url_version "$url$path1?folder_id=$folder_id" - append text_version "[_ file-storage.lt_View_folder_contents_]" - + append text_version "[_ file-storage.lt_View_folder_contents_]\n" + set html_version [ad_html_text_convert -from text/plain -to text/html -- $text_version] append html_version "

" # Do the notification for the file-storage