Index: openacs-4/packages/contacts/lib/email-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email-search.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/email-search.tcl	27 Jun 2007 23:55:36 -0000	1.2
+++ openacs-4/packages/contacts/lib/email-search.tcl	30 Jun 2007 06:59:59 -0000	1.3
@@ -362,11 +362,12 @@
 		    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]]
 		}