Index: openacs-4/packages/contacts/www/message.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.adp,v diff -u -r1.14 -r1.15 --- openacs-4/packages/contacts/www/message.adp 3 Oct 2005 18:41:59 -0000 1.14 +++ openacs-4/packages/contacts/www/message.adp 16 Oct 2005 12:47:50 -0000 1.15 @@ -33,6 +33,8 @@ no_callback_p="f" action="message" signature_id=@signature_id@ + file_ids="@file_ids@" + object_id="@context_id@" > Index: openacs-4/packages/contacts/www/message.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v diff -u -r1.17 -r1.18 --- openacs-4/packages/contacts/www/message.tcl 7 Oct 2005 21:15:00 -0000 1.17 +++ openacs-4/packages/contacts/www/message.tcl 16 Oct 2005 12:47:50 -0000 1.18 @@ -5,32 +5,28 @@ @creation-date 2004-07-28 @cvs-id $Id$ } { + {object_id:integer,multiple,optional} {party_id:integer,multiple,optional} {party_ids:optional} {message_type ""} {message:optional} {header_id:integer ""} {footer_id:integer ""} {return_url "./"} - {object_id:integer,multiple,optional} {file_ids ""} {item_id:integer ""} {folder_id:integer ""} {signature_id:integer ""} {subject ""} {content_body:html ""} {to:integer,multiple,optional ""} + {context_id:integer ""} } -validate { valid_message_type -requires {message_type} { if { [lsearch [list email letter] $message_type] < 0 } { ad_complain "[_ contacts.lt_Your_provided_an_inva]" } } - valid_party_submission { - if { ![exists_and_not_null party_id] && ![exists_and_not_null party_ids] } { - ad_complain "[_ contacts.lt_Your_need_to_provide_]" - } - } } @@ -46,6 +42,13 @@ } } +if { [exists_and_not_null to] } { + set party_ids [list] + foreach party_id $to { + lappend party_ids $party_id + } +} + set party_count [llength $party_ids] set title "[_ contacts.Messages]" set user_id [ad_conn user_id] @@ -166,13 +169,20 @@ lappend file_list $revision_id } } else { - lappend file_list $object + set revision_id [content::item::get_best_revision -item_id $object] + if {[empty_string_p $revision_id]} { + # so already is a revision + lappend file_list $object + } else { + # append revision of content item + lappend file_list $revision_id + } } } } if {[exists_and_not_null file_list]} { - set file_ids [join $file_list ","] + set file_ids [join $file_list " "] } set form_elements { Index: openacs-4/packages/contacts/www/resources/contacts.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/resources/contacts.css,v diff -u -r1.12 -r1.13 --- openacs-4/packages/contacts/www/resources/contacts.css 12 Oct 2005 22:52:34 -0000 1.12 +++ openacs-4/packages/contacts/www/resources/contacts.css 16 Oct 2005 12:47:50 -0000 1.13 @@ -273,7 +273,7 @@ dt.attribute-name { margin: 0; padding: 0; - font-size: smaller; + font: 90% Verdana,Georgia,Serif; text-align: right; line-height: 1.5em; border-width: 0; @@ -290,6 +290,7 @@ border-width: 0; width: 65%; float: right; + font: 90% Verdana,Georgia,Serif; } dl.attribute-values { margin: 0; @@ -347,13 +348,13 @@ } .contact-editlink { padding-left: 1em; - font-size: 80%; + font: 100% Verdana,Georgia,Serif; } .contact-attributes { clear:both; display: block; margin-left: 10px; - font-size: 80%; + font: 90% Verdana,Georgia,Serif; } .contact-attributes a { text-decoration: none;