Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	22 Jun 2004 00:25:55 -0000	1.18
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	28 Jun 2004 21:12:22 -0000	1.19
@@ -26,6 +26,7 @@
     {edit_p "t"}
     {comment_list ""}
     {old_description:html ""}
+    {send_email_p "t"}
 
 } -properties {
 
@@ -155,6 +156,10 @@
 	{value $return_url}
     }
 
+    {send_email_p:text(hidden)
+        {value $send_email_p}
+    }
+
     {revisions:text(hidden)
         {value $revisions_pass}}
 
@@ -281,25 +286,29 @@
         set my_comment $comment_value($t_id)
         set my_old_description $old_description_value($t_id)
 
-        pm::task::email_alert \
-            -task_item_id $t_id \
-            -user_id $user_id \
-            -assignee_id $p_id \
-            -assignee_role_name $role_oneline($r_id) \
-            -edit_p $edit_p \
-            -comment $my_comment \
-            -description $descriptions($t_id) \
-            -old_description $my_old_description \
-            -subject $one_lines($t_id) \
-            -work_min $est_hours_work_min($t_id) \
-            -work_max $est_hours_work_max($t_id) \
-            -work $est_hours_work($t_id) \
-            -project_name $project_names($t_id) \
-            -earliest_start $earliest_starts($item_id) \
-            -earliest_finish $earliest_finishes($item_id) \
-            -latest_start $latest_starts($item_id) \
-            -latest_finish $latest_finishes($item_id) \
-            -url "[parameter::get_from_package_key -package_key acs-kernel -parameter SystemURL][ad_conn package_url]task-one?task_id=$t_id"
+        if {[string is true $send_email_p]} {
+            pm::task::email_alert \
+                -task_item_id $t_id \
+                -user_id $user_id \
+                -assignee_id $p_id \
+                -assignee_role_name $role_oneline($r_id) \
+                -edit_p $edit_p \
+                -comment $my_comment \
+                -description $descriptions($t_id) \
+                -old_description $my_old_description \
+                -subject $one_lines($t_id) \
+                -work_min $est_hours_work_min($t_id) \
+                -work_max $est_hours_work_max($t_id) \
+                -work $est_hours_work($t_id) \
+                -project_name $project_names($t_id) \
+                -earliest_start $earliest_starts($item_id) \
+                -earliest_finish $earliest_finishes($item_id) \
+                -latest_start $latest_starts($item_id) \
+                -latest_finish $latest_finishes($item_id) \
+                -url "[parameter::get_from_package_key -package_key acs-kernel -parameter SystemURL][ad_conn package_url]task-one?task_id=$t_id"
+        } else {
+            ns_log Debug "User $user_id elected to not send out email while editing task_item_id $t_id"
+        }
 
         # we only want to do this for new people
         # notification::request::new \
@@ -481,4 +490,3 @@
     incr index
 }
 
-