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 -r1.8.2.7 -r1.8.2.8
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	24 Sep 2004 19:22:03 -0000	1.8.2.7
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	27 Sep 2004 22:39:25 -0000	1.8.2.8
@@ -270,7 +270,10 @@
       
     }
 
-    db_dml delete_assignments { }
+    foreach t_i_i $task_id {
+        pm::task::assign_remove_everyone \
+            -task_item_id $t_i_i
+    }
 
     # set up role names
     foreach r [db_list_of_lists get_roles { }] {
@@ -348,7 +351,10 @@
         #     -notif_subject $subject \
         #     -notif_text $notification_text
 
-        db_dml add_assignment { }
+        pm::task::assign \
+            -task_item_id $t_id \
+            -party_id  $p_id \
+            -role_id $r_id \
 
     }
         
@@ -412,7 +418,10 @@
       
     }
 
-    db_dml delete_assignments { }
+    foreach t_i_i $task_id {
+        pm::task::assign_remove_everyone \
+            -task_item_id $t_i_i
+    }
 
     foreach pl $party_list {
 
@@ -429,7 +438,10 @@
 
         set p_id  $assignment_party($pl)
 
-        db_dml add_assignment { }
+        pm::task::assign \
+            -task_item_id $t_id \
+            -party_id  $p_id \
+            -role_id $r_id \
 
     }