Index: openacs-4/packages/mail-tracking/www/one-message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/mail-tracking/www/one-message.adp	30 Sep 2005 17:37:33 -0000	1.1
@@ -0,0 +1,14 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<a href="@return_url;noquote@">#mail-tracking.Go_Back#</a>
+<br><br>
+<pre style="background-color: #eee; padding: .5em;">
+#mail-tracking.Sender#:      @sender;noquote@
+#mail-tracking.Recipient#:   @recipient;noquote@
+#mail-tracking.Subject#:     @subject;noquote@
+#mail-tracking.Attachments#: @download_files;noquote@</pre>
+
+@body;noquote@
+
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/mail-tracking/www/one-message.tcl	30 Sep 2005 17:37:33 -0000	1.1
@@ -0,0 +1,48 @@
+# /packages/mail-tracking/lib/one-message.tcl
+ad_page_contract {
+    Displays one message that was send to a user
+
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+    @creation-date 2005-09-30
+} {
+    log_id:notnull
+    {return_url ""}
+} -validate {
+    message_exists  -requires {log_id} {
+        if { ![db_0or1row message_exists_p { }] } {
+            ad_complain "<b>[_ mail-tracking.The_specified_message_does_not_exist]</b>"
+        }
+    }
+}
+
+
+set page_title "[_ mail-tracking.One_message]"
+set context [list]
+set sender ""
+set receiver ""
+
+if { [empty_string_p $return_url] } {
+    set return_url [get_referrer]
+}
+
+# Get the information of the message
+db_1row get_message_info { }
+
+catch { set sender [person::name -person_id $sender_id] } errorMsg
+catch { set recipient [person::name -person_id $recipient_id] } errMsg
+
+# 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"] {
+    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]
+    # Creating the link to dowload the files
+    append download_files "<a href=\"download/?file_id=$file_item_id\">$file_title</a><br>"
+}
\ No newline at end of file
Index: openacs-4/packages/mail-tracking/www/one-message.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/mail-tracking/www/one-message.xql	30 Sep 2005 17:37:33 -0000	1.1
@@ -0,0 +1,27 @@
+<? xml version="1.0"?>
+<queryset>
+
+<fullquery name="message_exists_p">
+    <querytext>
+	select 
+		1 
+	from 
+		acs_mail_log
+	where 
+		log_id = :log_id
+    </querytext>
+</fullquery>
+
+
+<fullquery name="get_message_info">
+    <querytext>
+	select 
+		*
+	from 
+		acs_mail_log
+	where
+		log_id = :log_id
+    </querytext>
+</fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/mail-tracking/www/download/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/download/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/mail-tracking/www/download/index.vuh	30 Sep 2005 17:37:33 -0000	1.1
@@ -0,0 +1,24 @@
+# packages/mail-tracking/www/download/index.vuh
+
+ad_page_contract {
+
+    Virtual URL handler for file downloads
+
+    @author Kevin Scaldeferri (kevin@arsdigita.com)
+    @author Don Baccus (simplified it by using cr utility)
+    @creation-date 18 December 2000
+    @cvs-id $Id: index.vuh,v 1.1 2005/09/30 17:37:33 miguelm Exp $
+} {
+    file_id:integer,optional
+    version_id:integer,optional
+}
+
+if {![exists_and_not_null version_id]} {
+	set version_id [item::get_live_revision $file_id]
+}
+
+set user_id [ad_conn user_id]
+
+ad_require_permission $version_id "read"
+
+cr_write_content -revision_id $version_id