Index: openacs-4/contrib/packages/project-manager/www/project-assign-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/project-assign-edit-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/project-manager/www/project-assign-edit-2.tcl	11 Jun 2004 20:58:19 -0000	1.1
+++ openacs-4/contrib/packages/project-manager/www/project-assign-edit-2.tcl	1 Jul 2004 21:40:30 -0000	1.2
@@ -20,16 +20,24 @@
 set user_id [ad_maybe_redirect_for_registration]
 
 # remove assignments 
-pm::project::assign_remove_everyone -project_item_id $project_item_id
+set current_assignees [pm::project::assign_remove_everyone \
+                           -project_item_id $project_item_id]
 
 foreach ass $assignee {
 
     regexp {(.*)-(.*)} $ass match party_id role_id
 
+    if {[lsearch $current_assignees $party_id] > -1} {
+        set send_email_p f
+    } else {
+        set send_email_p t
+    }
+
     pm::project::assign \
         -project_item_id $project_item_id \
         -party_id $party_id \
-        -role_id $role_id
+        -role_id $role_id \
+        -send_email_p $send_email_p
 
 }