Index: openacs-4/packages/project-manager/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/install-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	26 May 2005 09:34:29 -0000	1.3
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	26 May 2005 10:09:59 -0000	1.4
@@ -156,12 +156,14 @@
 } {
     If organisation, ask to create new project
 } {
-    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 { [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"}
+		}
 	    }
 	}
     }