Index: openacs-4/packages/project-manager/www/task-add-edit-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-add-edit-one.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/project-manager/www/task-add-edit-one.tcl	7 Jun 2005 11:03:26 -0000	1.9
+++ openacs-4/packages/project-manager/www/task-add-edit-one.tcl	8 Jun 2005 20:53:32 -0000	1.10
@@ -503,6 +503,10 @@
 
 	db_dml new_task {}
 
+	if {[exists_and_not_null category_ids]} {
+	    category::map_object -object_id $task_id $category_ids
+	}
+
 	if {$percent_complete >= 100} {
 	    pm::task::close -task_item_id $task_item_id
 	}
@@ -541,10 +545,6 @@
                 -project_item_id $project_item_id
         }
 
-	if {[exists_and_not_null category_ids]} {
-	    category::map_object -object_id $task_id $category_ids
-	}
-
 	callback pm::task_new -package_id $package_id -task_id $task_item_id
     }
 } -edit_data {
@@ -592,6 +592,11 @@
 
 	db_dml update_task {}
 
+	if {[exists_and_not_null category_ids]} {
+	    category::map_object -object_id $task_id $category_ids
+	}
+
+	set actual_hours_worked [pm::task::update_hours -task_item_id $task_item_id]
 	if {$percent_complete >= 100} {
 	    pm::task::close -task_item_id $task_item_id
 	}
@@ -636,10 +641,6 @@
                 -project_item_id $project_item_id
         }
 
-	if {[exists_and_not_null category_ids]} {
-	    category::map_object -object_id $task_id $category_ids
-	}
-
 	callback pm::task_edit -package_id $package_id -task_id $task_item_id
     }
 } -after_submit {