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.42.2.22 -r1.42.2.23
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 17 Mar 2005 13:11:29 -0000 1.42.2.22
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 18 Mar 2005 12:09:58 -0000 1.42.2.23
@@ -949,7 +949,12 @@
append text_version "[_ file-storage.lt_View_folder_contents_]"
set html_version [ad_html_text_convert -from text/plain -to text/html -- $text_version]
- append html_version "
"
+
+ # For whatever the reason, ad_html_text_convert somehow returns the text with \\n instead of
inserted.
+ # Too busy to find out now. Needs fixing l8er.
+ regsub -all {\\n} $html_version {
} html_version
+
+ # append html_version "
"
# Do the notification for the file-storage
notification::new \
@@ -969,7 +974,8 @@
-short_name fs_fs_notif] \
-object_id $parent_id \
-notif_subject "[_ file-storage.lt_File_Storage_Notifica]" \
- -notif_text $new_content
+ -notif_text $text_version \
+ -notif_html $html_version
set folder_id $parent_id
}
}