Index: openacs-4/packages/contacts/lib/oo_mailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/lib/oo_mailing.tcl	20 Feb 2006 22:01:02 -0000	1.9
+++ openacs-4/packages/contacts/lib/oo_mailing.tcl	5 Mar 2006 08:34:12 -0000	1.10
@@ -184,8 +184,10 @@
 		    contact::employee::get -employee_id $party_id -array employee
 		    set first_names $employee(first_names)
 		    set last_name $employee(last_name)
-		    set name "$first_names $last_name"
+		    set name [string trim "$employee(person_title) $first_names $last_name"]
 		    set salutation $employee(salutation)
+		    set directphone $employee(directphoneno)
+		    set mailing_address $employee(mailing_address)
 		    set locale $employee(locale)
 		    set to_addr $employee(email)
 		} else {
@@ -196,7 +198,7 @@
 		}
 		
 		set values [list]
-		foreach element [list first_names last_name name date salutation] {
+		foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		    lappend values [list "{$element}" [set $element]]
 		}