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.30 -r1.31
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	17 Sep 2005 10:59:48 -0000	1.30
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Sep 2005 07:09:10 -0000	1.31
@@ -65,7 +65,7 @@
     return [lindex [split $filename "."] end]
 }
 
-ad_proc -public contact::util::get_employees {
+ ad_proc -public contact::util::get_employees {
     {-organization_id:required}
 } {
     get employees of an organization
@@ -86,6 +86,27 @@
     return $contact_list
 }
 
+ad_proc -public contact::util::get_employee_organization {
+    {-employee_id:required}
+} {
+    get organization of an employee
+} {
+    set contact_list {}
+    db_foreach select_employee_ids {
+	select CASE WHEN object_id_one = :employee_id
+                    THEN object_id_two
+                    ELSE object_id_one END as other_party_id
+	from acs_rels, acs_rel_types
+	where acs_rels.rel_type = acs_rel_types.rel_type
+	and ( object_id_one = :employee_id or object_id_two = :employee_id )
+	and acs_rels.rel_type = 'contact_rels_employment'
+    } {
+	lappend contact_list $other_party_id
+    }
+
+    return $contact_list
+}
+
 ad_proc -private contact::flush {
     {-party_id:required}
 } {