Index: openacs-4/packages/mail-tracking/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/lib/messages.tcl,v
diff -u -r1.28.2.4 -r1.28.2.5
--- openacs-4/packages/mail-tracking/lib/messages.tcl 18 Jun 2006 12:43:32 -0000 1.28.2.4
+++ openacs-4/packages/mail-tracking/lib/messages.tcl 23 Jun 2006 06:50:06 -0000 1.28.2.5
@@ -255,22 +255,10 @@
set subject "$before$result$after"
}
- set files [list]
- # We get the related files for all the object_types
- set content_types [list content_revision content_item file_storage_object image]
- set files [db_list_of_lists files {}]
- foreach file_from_list $files {
- set file_id [lindex $file_from_list 1]
- if { [string equal [lindex $file_from_list 0] "content_revision"] } {
- set file [item::get_item_from_revision $file_id]
- } else {
- set file $file_id
- }
- set title [content::item::get_title -item_id $file]
- if { [empty_string_p $title] } {
- set title [acs_object_name $file]
- }
- append download_files "$title
"
+ set files [db_list files {}]
+ foreach file_id $files {
+ set title [content::item::get_title -item_id $file_id]
+ append download_files "$title
"
}
set object_url "/o/$object_id"