Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	26 Jan 2004 15:39:40 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	26 Feb 2004 15:15:41 -0000	1.5
@@ -12,6 +12,48 @@
 
 namespace eval project_manager::project {}
 
+ad_proc -public project_manager::project::default_status_open {
+} {
+    Returns the default status value for open projects
+} {
+    set return_val [db_string get_default_status_open { }]
+
+    return $return_val
+}
+
+ad_proc -public project_manager::project::default_status_closed {
+} {
+    Returns the default status value for closed projects
+} {
+    set return_val [db_string get_default_status_closed { }]
+
+    return $return_val
+}
+
+ad_proc -public project_manager::project::new {
+    -project_name:required
+    {-project_code ""}
+    {-parent_id ""}
+    {-goal ""}
+    {-description ""}
+    {-planned_start_date ""}
+    {-planned_end_date ""}
+    {-actual_start_date ""}
+    {-actual_end_date ""}
+    {-ongoing_p "f"}
+    -status_id:required
+    -organization_id:required
+    {-creation_date ""}
+    -creation_user:required
+    -creation_ip:required
+    -package_id:required
+} {
+
+    set return_val [db_exec_plsql new_project_item { *SQL }]
+
+    return $return_val
+}
+
 ad_proc -public project_manager::project::latest_start {
     end_date_j
     hours_to_complete