Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/email.tcl	14 Jun 2005 19:39:27 -0000	1.1
@@ -0,0 +1,82 @@
+# packages/contacts/lib/email.tcl
+# Template for email inclusion
+# @author Malte Sussdorff (sussdorff@sussdorff.de)
+# @creation-date 2005-06-14
+# @arch-tag: 48fe00a8-a527-4848-b5de-0f76dfb60291
+# @cvs-id $Id: email.tcl,v 1.1 2005/06/14 19:39:27 maltes Exp $
+
+foreach required_param {party_ids} {
+    if {![info exists $required_param]} {
+	return -code error "$required_param is a required parameter."
+    }
+}
+foreach optional_param {return_url} {
+    if {![info exists $optional_param]} {
+	set $optional_param {}
+    }
+}
+
+foreach party_id $party_ids {
+    lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
+}
+set recipients [join $recipients ", "]
+
+set form_elements {
+    message_id:key
+    party_ids:text(hidden)
+    return_url:text(hidden)
+    {message_type:text(hidden) {value "email"}}
+    {to:text(inform),optional {label "[_ contacts.Recipients]"} {value $recipients}}
+}
+
+append form_elements {
+    {subject:text(text),optional
+	{label "[_ contacts.Subject]"}
+	{html {size 55}}
+    }
+    {content:text(textarea),optional
+	{label "[_ contacts.Message]"}
+	{html {cols 55 rows 18}}
+	{help_text {remember that you can use <a href="message-help">mail merge substitutions</a>. the most common wildcards are \{name\} \{first_names\}, \{last_name\}, \{home_address\} and \{date\}}}
+    }
+}
+
+ad_form -action message \
+    -name email \
+    -cancel_label "[_ contacts.Cancel]" \
+    -cancel_url $return_url \
+    -edit_buttons {{"Send" send} {"Preview" preview}} \
+    -form $form_elements \
+    -on_request {
+    } -new_request {
+    } -edit_request {
+    } -on_submit {
+	set from [contact::name -party_id [ad_conn user_id]]
+	set from_addr [cc_email_from_party [ad_conn user_id]]
+	template::multirow create messages message_type to_addr subject content
+	foreach party_id $party_ids {
+	    set name [contact::name -party_id $party_id]
+	    set first_names [lindex $name 0]
+	    set last_name [lindex $name 1]
+	    set date [lc_time_fmt [dt_sysdate] "%q"]
+	    set to $name
+	    set to_addr [cc_email_from_party $party_id]
+	    if {[empty_string_p $to_addr]} {
+		break
+	    }
+	    set values [list]
+	    foreach element [list first_names last_name name date] {
+		lappend values [list "{$element}" [set $element]]
+	    }
+	    template::multirow append messages $message_type $to_addr [contact::util::interpolate -text $subject -values $values] [contact::util::interpolate -text $content -values $values]
+	}
+
+	set package_id [ad_conn package_id]
+	template::multirow foreach messages {
+	    acs_mail_lite::send -to_addr $to_addr -from_addr "$from_addr" -subject "$subject" -body "$content" -package_id $package_id
+	}
+
+    } -after_submit {
+	
+	ad_returnredirect $return_url
+    }
\ No newline at end of file