Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.43 -r1.4.2.44
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	14 May 2005 10:13:19 -0000	1.4.2.43
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	14 May 2005 12:01:50 -0000	1.4.2.44
@@ -800,7 +800,6 @@
     object_id
 } {
     
-    
     set package_id [db_string pm_package_id "select package_id from cr_folders cf, cr_items ci1, cr_items ci2 where cf.folder_id = ci1.parent_id and ci1.item_id = ci2.parent_id and ci2.item_id = :object_id" -default 0]
     
     if {$package_id == 0} {
@@ -1871,6 +1870,7 @@
     {-number:required}
     {-process_task_id ""}
     {-task_item_id ""}
+    {-project_item_id ""}
 } {
     Assignee HTML for new tasks
     
@@ -1900,17 +1900,20 @@
 
     } elseif {[exists_and_not_null task_item_id]} {
 
-        # EDITING
+        # EDITING (retrieve the assignees)
 
         set task_assignee_list_of_lists \
             [pm::task::assignee_role_list \
                  -task_item_id $task_item_id]
 
     } else {
 
-        # NEW
-
-        set task_assignee_list_of_lists [list]
+        # NEW (set the assigness to the default assignees of the project)
+	
+        set task_assignee_list_of_lists \
+	    [pm::project::assignee_role_list \
+		 -project_item_id $project_item_id]
+	ns_log Notice "PROJECT_ITEM: $project_item_id;;;;;;; $task_assignee_list_of_lists"
     }
 
     # Get assignments for when editing