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.6 -r1.7
--- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	28 Aug 2005 20:36:11 -0000	1.6
+++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	29 Aug 2005 07:07:08 -0000	1.7
@@ -108,16 +108,18 @@
 } {
     If organisation, ask to create new project
 } {
-    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"}
+    if {0} {
+	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"}
+			}
 		    }
 		}
 	    }