Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/contacts/lib/email.tcl	25 Jun 2007 16:25:39 -0000	1.35
+++ openacs-4/packages/contacts/lib/email.tcl	30 Jun 2007 06:59:59 -0000	1.36
@@ -296,11 +296,11 @@
 		set last_name ""
 	    }
 
-	    
+	    set username [db_string user "select username from users where user_id = :party_id" -default ""]
 	    set date [lc_time_fmt [dt_sysdate] "%q"]
 	    
 	    set values [list]
-	    foreach element [list first_names last_name salutation name date] {
+	    foreach element [list first_names last_name salutation name date username] {
 		lappend values [list "{$element}" [set $element]]
 	    }