Index: openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	16 Jun 2005 07:42:39 -0000	1.2
+++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	21 Jun 2005 22:16:39 -0000	1.3
@@ -114,18 +114,21 @@
     {-package_id:required}
     {-form:required}
     {-object_type:required}
+    {-party_id}
 } {
     If organisation, ask to create new project
 } {
-    if {[llength [application_link::get_linked \
-		      -from_package_id $package_id \
-		      -to_package_key "project-manager"]] > 0} {
-	if {$object_type != "person" } {
-	    ad_form -extend -name $form -form {
-		{create_project_p:text(radio) \
-		     {label "[_ project-manager.create_project]"} \
-		     {options {{[_ acs-kernel.common_Yes] "t"} {[_ acs-kernel.common_no] "f"}}} \
-		     {values "f"}
+    if {![exists_and_not_null party_id]} {
+	if {[llength [application_link::get_linked \
+			  -from_package_id $package_id \
+			  -to_package_key "project-manager"]] > 0} {
+	    if {$object_type != "person" } {
+		ad_form -extend -name $form -form {
+		    {create_project_p:text(radio) \
+			 {label "[_ project-manager.create_project]"} \
+			 {options {{[_ acs-kernel.common_Yes] "t"} {[_ acs-kernel.common_no] "f"}}} \
+			 {values "f"}
+		    }
 		}
 	    }
 	}