Index: openacs-4/packages/contacts/lib/envelope.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/envelope.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/envelope.adp	20 Feb 2006 09:10:12 -0000	1.1
@@ -0,0 +1 @@
+<formtemplate id="envelope"></formtemplate>
Index: openacs-4/packages/contacts/lib/envelope.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/envelope.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/envelope.tcl	20 Feb 2006 09:10:12 -0000	1.1
@@ -0,0 +1,97 @@
+# packages/contacts/lib/envelope.tcl
+#
+# Template for envelopes
+#
+# @author Matthew Geddert (openacs@geddert.com)
+# @creation-date 2006-02-19
+# @arch-tag: 
+# @cvs-id $Id: envelope.tcl,v 1.1 2006/02/20 09:10:12 matthewg Exp $
+
+foreach required_param {party_ids recipients} {
+    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 {}
+    }
+}
+
+set message_type "envelope"
+set envelope_options [callback contact::envelope -request "ad_form_option"]
+
+ad_form -action message \
+    -name envelope \
+    -cancel_label "[_ contacts.Cancel]" \
+    -cancel_url $return_url \
+    -edit_buttons [list [list "[_ contacts.create_envelope] [_ contacts.lt_this_may_take_a_bit]" print]] \
+    -export {party_ids return_url title message_type} \
+    -form {
+	message_id:key
+	{recipients:text(inform) {label "[_ contacts.Contacts_to_Export]"}}
+	{envelope_type:text(select),optional
+	    {label "[_ contacts.Type]"}
+	    {options $envelope_options}
+	}
+    } -on_request {
+    } -on_submit {
+    }
+
+
+if { [template::form::is_valid envelope] || [llength $envelope_options] == "1" } {
+    if { [llength $envelope_options] == "1" } {
+	# we only have one envelope time to the user has to select it
+	set envelope_type [lindex [lindex $envelope_options 0] 1]
+    }
+
+
+    # display the progress bar
+
+    ad_progress_bar_begin \
+	-title [_ contacts.Generating_PDF] \
+	-message_1 [_ contacts.lt_Generating_the_envelopes_] \
+	-message_2 [_ contacts.lt_Once_finished_you_get]
+    
+    set envelopes [list]
+    foreach party_id $party_ids {
+	set name [contact::name -party_id $party_id]
+	set mailing_address [contact::message::mailing_address -party_id $party_id -format "text/plain"]
+	if {[empty_string_p $mailing_address]} {
+	    ad_return_error [_ contacts.Error] [_ contacts.lt_there_was_an_error_processing_this_request]
+	    break
+	}
+	
+	set name            [openreport::clean_string_for_rml -string ${name}]
+	set mailing_address [openreport::clean_string_for_rml -string ${mailing_address}]
+	
+	set one "<para style=\"name\">
+${name}
+</para>
+<xpre style=\"address\">
+${mailing_address}
+</xpre>
+"
+	lappend envelopes [string trim $one]
+    }
+    
+    set rml "<!DOCTYPE document SYSTEM \"rml_1_0.dtd\"><document filename=\"filename.pdf\">"
+    append rml [lindex [callback contact::envelope -request "template" -for $envelope_type] 0]
+    append rml "<story>"
+    append rml [join $envelopes "<nextFrame /><condPageBreak height=\"0in\" />"]
+    append rml "</story></document>"
+    
+    # Gerneate the pdf
+    set filename "contacts_envelopes_[ad_conn user_id]_[dt_systime -format {%Y%m%d-%H%M%S}]_[ad_generate_random_string].pdf"
+    set pdf_filename [openreport::trml2pdf -rml $rml -filename $filename]
+    set pdf_url "[ad_conn package_url]pdfs/${filename}"
+    util_user_message -html -message [_ contacts.lt_The_pdf_you_requested_-pdf_url-]
+    
+    if { [exists_and_not_null return_url] } {
+	ad_progress_bar_end -url ${return_url}
+	ad_script_abort
+    } else {
+	ad_progress_bar_end -url [ad_conn package_url]
+	ad_script_abort
+    }
+}