Index: openacs-4/packages/contacts/lib/letter.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/letter.tcl,v diff -u -r1.12 -r1.13 --- openacs-4/packages/contacts/lib/letter.tcl 5 Apr 2018 14:44:08 -0000 1.12 +++ openacs-4/packages/contacts/lib/letter.tcl 25 Apr 2018 19:47:46 -0000 1.13 @@ -175,7 +175,7 @@ append letter "\n
$name
[contact::message::mailing_address -party_id $party_id -format "text/html"]
" } append letter "\n
${content_html}
" - set values [list] + set values {} foreach element [list first_names last_name name date salutation mailing_address directphone] { lappend values [list "{$element}" [set $element]] }