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.100 -r1.101
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	15 Nov 2006 13:13:04 -0000	1.100
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	13 Dec 2006 13:03:53 -0000	1.101
@@ -320,6 +320,14 @@
     }
 }
 
+ad_proc -public contact::util::get_account_manager {
+    {-organization_id:required}
+} {
+    get the account manager's party_id for an organization
+} {
+    return [db_list account_id "select object_id_one from acs_rels where rel_type='contact_rels_am' and object_id_two = :organization_id"]
+}
+
 ad_proc -private contact::util::generate_filename {
     {-title:required}
     {-extension:required}