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.11 -r1.12
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	10 Jun 2005 19:21:14 -0000	1.11
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	13 Jun 2005 09:36:41 -0000	1.12
@@ -256,43 +256,39 @@
     }
 }
 
-ad_proc -public -callback contact::contact_new_form -impl project_manager {
+ad_proc -public -callback contact::organization_new -impl project_manager {
     {-package_id:required}
     {-contact_id:required}
-    {-form:required}
-    {-object_type:required}
 } {
     create a new project for new organization
 } {
-    if {$object_type != "person" } {
-	upvar create_project_p create_project_p
-
-	if {[exists_and_not_null create_project_p]
-	    && $create_project_p == "t"} {
-	    db_1row organisation_data {
-		select o.name, ao.creation_user, ao.creation_ip
-		from organizations o, acs_objects ao
-		where o.organization_id = :contact_id
-		and ao.object_id = o.organization_id}
-
-	    foreach pm_package_id [application_link::get_linked \
-				       -from_package_id $package_id \
-				       -to_package_key "project-manager"] {
-		set project_id [pm::project::new \
-				    -project_name $name \
-				    -status_id 1 \
-				    -organization_id $contact_id \
-				    -creation_user $creation_user \
-				    -creation_ip $creation_ip \
-				    -package_id $pm_package_id]
-
-		set project_item_id [pm::project::get_project_item_id \
-					 -project_id $project_id]
-
-		application_data_link::new -this_object_id $contact_id -target_object_id $project_item_id
-
+    upvar create_project_p create_project_p
+    
+    if {[exists_and_not_null create_project_p]
+	&& $create_project_p == "t"} {
+	db_1row organisation_data {
+	    select o.name, ao.creation_user, ao.creation_ip
+	    from organizations o, acs_objects ao
+	    where o.organization_id = :contact_id
+	    and ao.object_id = o.organization_id}
+	
+	foreach pm_package_id [application_link::get_linked \
+				   -from_package_id $package_id \
+				   -to_package_key "project-manager"] {
+	    set project_id [pm::project::new \
+				-project_name $name \
+				-status_id 1 \
+				-organization_id $contact_id \
+				-creation_user $creation_user \
+				-creation_ip $creation_ip \
+				-package_id $pm_package_id]
+	    
+	    set project_item_id [pm::project::get_project_item_id \
+				     -project_id $project_id]
+	    
+	    application_data_link::new -this_object_id $contact_id -target_object_id $project_item_id
+	    
 	    }
-	}
     }
 }