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.3.2.1 -r1.3.2.2
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	10 Jan 2004 01:04:02 -0000	1.3.2.1
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	4 Feb 2004 20:17:19 -0000	1.3.2.2
@@ -12,6 +12,30 @@
 
 namespace eval project_manager::project {}
 
+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