Index: openacs-4/packages/mail-tracking/www/one-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/mail-tracking/www/one-message.tcl	17 Oct 2005 22:27:37 -0000	1.4
+++ openacs-4/packages/mail-tracking/www/one-message.tcl	24 Oct 2005 18:09:13 -0000	1.5
@@ -50,20 +50,28 @@
 
 # We get the related files
 set files [list]
-set file_revisions [application_data_link::get_linked -from_object_id $log_id -to_object_type "content_revision"]
 
-foreach file $file_revisions {
-    lappend files [item::get_item_from_revision $file]
+set content_types [list content_revision content_item file_storage_object image]
+foreach content_type $content_types {
+    
+    foreach file [application_data_link::get_linked -from_object_id $log_id -to_object_type "$content_type"] {
+	if { [string equal $content_type "content_revision"] } {
+	    lappend files [item::get_item_from_revision $file]
+	} else {
+	    lappend files $file
+	}
+    }
 }
 
-foreach file_id [application_data_link::get_linked -from_object_id $log_id -to_object_type "content_item"] {
-    lappend files $file_id
-}
+set download_files [list]
 
-set download_files ""
-
 foreach file $files {
     set title [content::item::get_title -item_id $file]
+    if { [empty_string_p $title]} {
+	set title [acs_object_name $file]
+    }
     # Creating the link to dowload the files
-    append download_files "<a href=\"[export_vars -base "download/$title" -url {{file_id $file}}]\">$title</a><br>"
-}
\ No newline at end of file
+    lappend download_files "<a href=\"[export_vars -base "download/$title" -url {{file_id $file}}]\">$title</a>"
+}
+
+set download_files [join $download_files ", "]
\ No newline at end of file