Index: openacs-4/packages/contacts/lib/oo_mailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/lib/oo_mailing.tcl	3 May 2006 10:39:35 -0000	1.14
+++ openacs-4/packages/contacts/lib/oo_mailing.tcl	3 May 2006 14:25:42 -0000	1.15
@@ -72,6 +72,11 @@
         {help_text "[_ contacts.PS_help_text]"}
         {html {size 45 maxlength 1000}}
     }
+    {account_manager_p:text(select)
+	{label "[_ contacts.Account_Manager_P]"}
+	{help_text "[_ contacts.Account_Manager_P_help_text]"}
+	{options {{"[_ contacts.account_manager]" "t"} {"[_ contacts.yourself]" "f"}}}
+    }
     {subject:text(text),optional
 	{label "[_ contacts.Subject]"}
 	{html {size 55}}
@@ -166,7 +171,12 @@
 	    
 	    # Retrieve information about the creation user so it can be used in the template
 	    # First check if there is an account manager
-	    set account_manager_id [contacts::util::get_account_manager -organization_id $organization_id]
+	    if {[string eq $account_manager_p "t"]} {
+		set account_manager_id [contacts::util::get_account_manager -organization_id $organization_id]
+	    } else {
+		set account_manager_id ""
+	    }
+
 	    if {[string eq "" $account_manager_id]} {
 		set user_id [ad_conn user_id]
 	    } else {