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 -N -r1.12 -r1.13
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	13 Jun 2005 09:36:41 -0000	1.12
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	13 Jun 2005 11:39:21 -0000	1.13
@@ -259,19 +259,17 @@
 ad_proc -public -callback contact::organization_new -impl project_manager {
     {-package_id:required}
     {-contact_id:required}
+    {-name:required}
 } {
     create a new project for new organization
 } {
     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}
-	
+
+	set creation_user [ad_conn user_id]
+	set creation_ip [ad_conn peeraddr]
 	foreach pm_package_id [application_link::get_linked \
 				   -from_package_id $package_id \
 				   -to_package_key "project-manager"] {