Index: openacs-4/packages/contacts/www/message-log.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-log.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/message-log.adp 16 Jul 2005 20:15:23 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+@party_id@
+
+
+
+
+@content;noquote@
+
+
+
+
+
+
+#contacts.Print_Letter#
+
+
+
+#contacts.Return_to_history#
+
+@content;noquote@
+
+
+
+
+
+
+
Index: openacs-4/packages/contacts/www/message-log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-log.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/message-log.tcl 16 Jul 2005 20:15:23 -0000 1.1
@@ -0,0 +1,48 @@
+ad_page_contract {
+
+ @author Matthew Geddert openacs@geddert.com
+ @creation-date 2004-07-28
+ @cvs-id $Id: message-log.tcl,v 1.1 2005/07/16 20:15:23 matthewg Exp $
+
+
+} {
+ {message_id:integer,notnull}
+} -validate {
+ message_exists -requires {message_id} {
+ if { ![db_0or1row message_exists_p { select 1 from contact_message_log where message_id = :message_id}] } {
+ ad_complain "[_ contacts.lt_The_message_specified_does_not_exist]"
+ }
+ }
+}
+
+db_1row get_message_data {
+ select message_type,
+ sender_id,
+ recipient_id,
+ sent_date,
+ title,
+ description,
+ content,
+ content_format
+ from contact_message_log
+ where message_id = :message_id
+
+}
+
+set timestamp [lindex [split $sent_date "."] 0]
+set date [lc_time_fmt $timestamp "%q"]
+set time [string trimleft [lc_time_fmt $timestamp "%r"] "0"]
+
+if { $message_type == "email" } {
+ set content "[_ contacts.Date]: $date $time
+[_ contacts.From]: [contact::link -party_id $sender_id]
+[_ contacts.To]: [contact::link -party_id $recipient_id]
+[_ contacts.Subject]: $description
+
+[ad_convert_to_html $content]
+"
+} else {
+ set return_url "[contact::url -party_id $recipient_id]history"
+}
+set party_id $recipient_id
+ad_return_template