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.6.2.3 -r1.6.2.4
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	2 Jul 2004 23:13:48 -0000	1.6.2.3
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	7 Jul 2004 23:41:56 -0000	1.6.2.4
@@ -241,7 +241,17 @@
     # with the logger project)
     set project_revision [db_exec_plsql new_project_item { *SQL }]
 
+    set project_item_id [pm::project::get_project_item_id \
+                             -project_id $project_revision]
 
+    set project_role [pm::role::default]
+
+    pm::project::assign \
+        -project_item_id $project_item_id \
+        -role_id $project_role \
+        -party_id $creation_user \
+        -send_email_p "f"
+
     return $project_revision
 }