Index: openacs-4/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	23 Jan 2007 06:35:19 -0000	1.18
+++ openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	23 Mar 2007 07:53:22 -0000	1.19
@@ -852,4 +852,22 @@
     @param role_id Role the user can have in the project. Might also be a SQL list.
 } {
     return [db_list list_of_assigned_projects "select distinct i.item_id from pm_projects p, cr_items i, pm_project_assignment pa where p.project_id = i.latest_revision and p.status_id in ($status_id) and pa.project_id = i.item_id and pa.party_id = :party_id and pa.role_id in ($role_id)"]
-}
\ No newline at end of file
+}
+
+ad_proc -public pm::util::get_contacts {
+    -customer_id:required
+} {
+    Returns all contacts for customer in list for ad_form
+} {
+    set contact_list {}
+    if {[apm_package_installed_p "contacts"]} {
+	foreach employee_id [contact::util::get_employees -organization_id $customer_id] {
+	    lappend contact_list [list [contact::name -party_id $employee_id -reverse_order] $employee_id]
+	}
+	set contact_list [lsort -dictionary $contact_list]
+	lappend contact_list [list [contact::name -party_id $customer_id] $customer_id]
+    } else {
+	lappend contact_list [list [organizations::name -organization_id $customer_id] $customer_id]
+    }
+    return $contact_list
+}