Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.23.2.6 -r1.23.2.7
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	5 Feb 2004 23:57:49 -0000	1.23.2.6
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	6 Feb 2004 17:20:43 -0000	1.23.2.7
@@ -1,4 +1,4 @@
-set debug 1
+set debug 0
 
 if {[string equal $debug 1]} {
     ns_log notice task add edit page
@@ -519,7 +519,20 @@
         ns_log Notice "adding task: pii: $project_item_id tt:$p_task_title d:$p_description ed: end_date($i) w:$p_work m:$p_work_min mx:$p_work_max dep_type:$p_dep_type dep_id:$p_dep_id"
 
         # add in the new task
-        set this_revision_id [db_exec_plsql new_task_item { *SQL* }]
+        set this_revision_id [project_manager::task::new \
+                                  -project_id $project_item_id \
+                                  -title $p_task_title \
+                                  -description $p_description \
+                                  -end_date [project_manager::project::util::datenvl -value [set end_date_$i] -value_if_null "" -value_if_not_null "to_timestamp('[set end_date_$i]','YYYY MM DD HH24 MI SS')"] \
+                                  -percent_complete "0" \
+                                  -estimated_hours_work $p_work \
+                                  -estimated_hours_work_min $p_work_min \
+                                  -estimated_hours_work_max $p_work_max \
+                                  -creation_user $user_id \
+                                  -creation_ip $peeraddr \
+                                  -package_id $package_id
+                             ]
+
         set this_task_id [db_string get_task_item_id {}] 
         set dep_task_id($i) $this_task_id