Index: openacs-4/packages/mail-tracking/www/forward.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/forward.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/mail-tracking/www/forward.tcl	3 Jun 2006 19:57:47 -0000	1.1.2.1
+++ openacs-4/packages/mail-tracking/www/forward.tcl	23 Jun 2006 06:50:06 -0000	1.1.2.2
@@ -57,28 +57,11 @@
 set bcc_string [join $reciever_list ","]
 
 # We get the related files
-set files [list]
-
-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
-	}
-    }
-}
-
 set download_files [list]
-
-foreach file $files {
-    set file_title [content::item::get_title -item_id $file]
-    if { [empty_string_p $file_title]} {
-	set file_title [acs_object_name $file]
-    }
-    lappend download_files $file_title
+set files [db_list files {}]
+foreach file_id $files {
+    set title [content::item::get_title -item_id $file_id]
+    lappend download_files $title
 }
 
 set download_files [join $download_files ", "]