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.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"] {