Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.50 -r1.51
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Dec 2005 18:58:31 -0000	1.50
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	27 Dec 2005 08:36:18 -0000	1.51
@@ -201,6 +201,8 @@
     @return country_code
     @return country Name of the country in the user's locale
     @return town_line TownLine in the format used in the country of the party
+    @return locale Locale of the employee
+    @return jobtitle Job Title of the person
 
 } {
     upvar $array local_array
@@ -226,7 +228,7 @@
 } {
     ns_log notice "start processing"
     set employer_exist_p 0
-    set employee_attributes [list "first_names" "last_name" "person_title" "directphoneno" "directfaxno" "email"]
+    set employee_attributes [list "first_names" "last_name" "person_title" "directphoneno" "directfaxno" "email" "jobtitle"]
     set employer_attributes [list "name" "company_phone" "company_fax" "email" "company_name_ext"]
 
     # Check if ID belongs to an employee, if not return empty string
@@ -313,6 +315,9 @@
 	}
     }
 
+    # Get the locale
+    set local_array(locale) [lang::user::site_wide_locale -user_id $employee_id]
+
     return [array get local_array]
 }
 
@@ -856,4 +861,4 @@
     } else {
 	return [array get return_array]
     }
-}
+}
\ No newline at end of file