Index: openacs-4/packages/project-manager/templates/task-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/task-ae.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/project-manager/templates/task-ae.tcl	21 Aug 2006 16:24:06 -0000	1.11
+++ openacs-4/packages/project-manager/templates/task-ae.tcl	1 Oct 2006 17:18:10 -0000	1.12
@@ -353,6 +353,7 @@
 
 set roles_list [pm::role::select_list_filter]
 set assignee_role_list [pm::project::assignee_role_list -project_item_id $project_item_id]
+set project_assignee_role_list $assignee_role_list
 
 # Get assignments for when using processes
 if {[string is true $using_process_p]} {
@@ -392,8 +393,16 @@
         }
     }
     lappend assignee_options [list $assignee_name $person_id]
+    lappend assignee_ids $person_id
 }
 
+foreach assignee_one $project_assignee_role_list {
+    set person_id [lindex $assignee_one 0]
+    if {[lsearch $assignee_ids $person_id]<0} {
+	lappend assignee_options [list [person::name -person_id $person_id] $person_id]
+    }
+}
+
 foreach role_list $roles_list {
     set role_name [lindex $role_list 0]
     set role      [lindex $role_list 1]
@@ -554,15 +563,15 @@
 		    # We do not want to update the assignment
 		    # This allows the trick that a LEAD assignement will not be 
 		    # overwritten by a player / watcher one, as the role is lower
-		    pm::task::assign \ 
+		    pm::task::assign \
 			-task_item_id $task_item_id \
 			-party_id     $person_id \
 			-role_id      $role \
 			-no_update
 		}
 	    }
 	}
-
+	
 	# -------------------
 	# add in dependencies
 	# -------------------