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 -N -r1.6.2.21 -r1.6.2.22
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	3 May 2005 09:01:28 -0000	1.6.2.21
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	12 May 2005 07:34:17 -0000	1.6.2.22
@@ -248,6 +248,14 @@
         -party_id $creation_user \
         -send_email_p "f"
 
+    # Set the parent_id to the package_id if this is not a subproject.
+    # Otherwise permission inheritance won't work.
+    # Update the context_id
+    if {[empty_string_p $parent_id]} {
+	set parent_id $package_id
+    }
+
+    db_dml update_context_id "update acs_objects set context_id = :parent_id where object_id = :project_item_id"
     return $project_revision
 }