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.2 -r1.3
--- openacs-4/packages/mail-tracking/www/one-message.tcl 3 Oct 2005 18:31:36 -0000 1.2
+++ openacs-4/packages/mail-tracking/www/one-message.tcl 17 Oct 2005 12:47:56 -0000 1.3
@@ -38,16 +38,21 @@
}
# We get the related files
-set files [application_data_link::get_linked -from_object_id $log_id -to_object_type "content_revision"]
-foreach file_id [application_data_link::get_linked -from_object_id $log_id -to_object_type "image"] {
+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]
+}
+
+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 ""
foreach file $files {
- set file_item_id [item::get_item_from_revision $file]
- set file_title [content::item::get_title -item_id $file_item_id]
+ set title [content::item::get_title -item_id $file]
# Creating the link to dowload the files
- append download_files "$file_title
"
+ append download_files "$title
"
}
\ No newline at end of file