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 -r1.1.2.2 -r1.1.2.3
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	4 Feb 2004 20:17:19 -0000	1.1.2.2
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	5 Feb 2004 23:57:49 -0000	1.1.2.3
@@ -12,6 +12,49 @@
 
 namespace eval project_manager::task {}
 
+ad_proc -public project_manager::task::default_status_open {
+} {
+    Returns the default status value for open tasks
+} {
+    set return_val [db_string get_default_status_open { }]
+
+    return $return_val
+}
+
+ad_proc -public project_manager::task::default_status_closed {
+} {
+    Returns the default status value for closed tasks
+} {
+    set return_val [db_string get_default_status_closed { }]
+
+    return $return_val
+}
+
+ad_proc -public project_manager::task::new {
+    -project_id:required
+    -title:required
+    {-description ""}
+    {-end_date ""}
+    {-percent_complete "0"}
+    {-estimated_hours_work "0"}
+    {-estimated_hours_work_min "0"}
+    {-estimated_hours_work_max "0"}
+    {-creation_date ""}
+    {-status_id ""}
+    -creation_user:required
+    -creation_ip:required
+    -package_id:required
+} {
+    if {![exists_and_not_null status_id]} {
+        set status_id [project_manger::task::default_status_open]
+    }
+
+    set return_val [db_exec_plsql new_task_item { *SQL }]
+
+    return $return_val
+}
+
+
 ad_proc -public project_manager::task::get_url {
     object_id
 } {