Index: openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit-2.tcl,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	21 Dec 2004 15:00:33 -0000	1.1.2.7
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-2.tcl	5 Jan 2005 16:08:14 -0000	1.1.2.8
@@ -45,6 +45,7 @@
     {log:array ""}
     {logger_variable:array ""}
     {date:multiple ""}
+    {priority:array ""}
 } -properties {
 } -validate {
 } -errors {
@@ -142,8 +143,8 @@
         -end_date_month_array            old_end_date_month \
         -end_date_year_array             old_end_date_year \
         -project_item_id_array           old_project_item_id \
+        -priority_array                  old_priority \
         -set_client_properties_p         t
-
     foreach num $number {
 
         # --------------------------
@@ -204,9 +205,9 @@
                  -update_user              $user_id \
                  -update_ip                $peeraddr \
                  -package_id               $package_id \
+		 -priority                 $priority($num)
                 ]
 
-
         # --------------------------
         # remove all old assignments
         # --------------------------
@@ -306,6 +307,7 @@
                  -creation_user            $user_id \
                  -creation_ip              $peeraddr \
                  -package_id               $package_id \
+		 -priority                 $priority($num)
                 ]
 
         set task_item_id($num) $task_item