Index: openacs-4/packages/contacts/tcl/contacts-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-install-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 14 Jun 2005 07:26:48 -0000 1.9 +++ openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 15 Jun 2005 19:12:35 -0000 1.10 @@ -11,26 +11,7 @@ namespace eval contacts::install {} -ad_proc -public -callback contact::contact_form { - {-package_id:required} - {-form:required} - {-object_type:required} -} { -} -ad_proc -public -callback contact::organization_new { - {-package_id:required} - {-contact_id:required} - {-name:required} -} { -} - -ad_proc -public -callback contact::person_new { - {-package_id:required} - {-contact_id:required} -} { -} - ad_proc -public contacts::install::package_install { } { @author Malte Sussdorff (sussdorff@sussdorff.de) @@ -267,35 +248,3 @@ (:group_id,:default_p,:package_id)} } -ad_proc -public -callback pm::project_new -impl contacts { - {-package_id:required} - {-project_id:required} - {-data:required} -} { - map selected organization to new project -} { - array set callback_data $data - set project_rev_id [pm::project::get_project_id \ - -project_item_id $project_id] - - if {[exists_and_not_null callback_data(organization_id)]} { - application_data_link::new -this_object_id $project_rev_id -target_object_id $callback_data(organization_id) - } -} - -ad_proc -public -callback pm::project_edit -impl contacts { - {-package_id:required} - {-project_id:required} - {-data:required} -} { - map selected organization to updated project -} { - array set callback_data $data - set project_rev_id [pm::project::get_project_id \ - -project_item_id $project_id] - - if {[exists_and_not_null callback_data(organization_id)]} { - application_data_link::new -this_object_id $project_rev_id -target_object_id $callback_data(organization_id) - } -} -