Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	4 Jan 2006 09:40:25 -0000	1.27
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	27 Jan 2006 07:54:36 -0000	1.28
@@ -1742,7 +1742,7 @@
     {-project_item_id:required}
     {-role_id:required}
     {-party_id:required}
-    {-send_email_p "t"}
+    {-send_email_p "f"}
 } {
     Assigns a user to a project
     
@@ -1785,7 +1785,7 @@
     # Flush the cache that remembers which roles to offer the current user in the 'assign role to myself' listbox
     util_memoize_flush [list pm::role::project_select_list_filter_not_cached -project_item_id $project_item_id -party_id $party_id]
 
-    if {[string is true $send_email_p]} {
+    if {[string is true $send_email_p] || [string is true [parameter::get -parameter "SendAssignEmailsP"]]} {
 
         set project_name [pm::project::name \
                               -project_item_id $project_item_id]