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 -N -r1.4.2.36 -r1.4.2.37
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	20 Dec 2004 19:47:39 -0000	1.4.2.36
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	5 Jan 2005 16:08:14 -0000	1.4.2.37
@@ -627,6 +627,7 @@
     -update_user:required
     -update_ip:required
     -package_id:required
+    {-priority "0"}
 } {
     
     
@@ -715,6 +716,7 @@
     -creation_user:required
     -creation_ip:required
     -package_id:required
+    {-priority "0"}
 } {
     Creates a new task. 
 
@@ -1959,6 +1961,7 @@
     {-end_date_year_array:required}
     {-project_item_id_array:required}
     {-set_client_properties_p "f"}
+    {-priority_array:required}
 } {
     Stuff information about tasks into several arrays
     
@@ -1989,6 +1992,7 @@
     upvar 1 $end_date_month_array           end_date_month_arr
     upvar 1 $end_date_year_array            end_date_year_arr
     upvar 1 $project_item_id_array          project_item_id_arr
+    upvar 1 $priority_array                 priority_arr
 
     set task_where_clause " and i.item_id in ([join $tasks_item_id ", "])"
 
@@ -2005,6 +2009,7 @@
         set end_date_month_arr($tid)           $end_date_month
         set end_date_year_arr($tid)            $end_date_year
         set project_item_id_arr($tid)          $project
+	set priority_arr($tid)                 $priority
 
         # make sure that we don't have empty values for estimated
         # hours work
@@ -2272,7 +2277,8 @@
         -end_date_day_array              end_date_day_array \
         -end_date_month_array            end_date_month_array \
         -end_date_year_array             end_date_year_array \
-        -project_item_id_array           project_item_id_array 
+        -project_item_id_array           project_item_id_array \
+	-priority_array                  priority_array
 
     
     foreach num $number {
@@ -2301,6 +2307,7 @@
 
         }
         
+
         set old_end_date_day [ad_get_client_property -- project-manager old_end_date_day($tid)]
         set old_end_date_month [ad_get_client_property -- project-manager old_end_date_month($tid)]
         set old_end_date_year [ad_get_client_property -- project-manager old_end_date_year($tid)]