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.8.2.2 -r1.8.2.3
--- openacs-4/packages/mail-tracking/www/one-message.tcl 8 Jun 2006 15:58:54 -0000 1.8.2.2
+++ openacs-4/packages/mail-tracking/www/one-message.tcl 23 Jun 2006 06:50:06 -0000 1.8.2.3
@@ -82,32 +82,15 @@
}
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
- }
- }
+# We get the related files
+set tracking_url [apm_package_url_from_key "mail-tracking"]
+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 [list]
-
-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
- lappend download_files "$title"
-}
-
set download_files [join $download_files ", "]
if {![ad_looks_like_html_p $body]} {