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.16 -r1.17 --- openacs-4/packages/project-manager/tcl/install-procs.tcl 15 Jun 2005 13:40:41 -0000 1.16 +++ openacs-4/packages/project-manager/tcl/install-procs.tcl 16 Jun 2005 07:42:39 -0000 1.17 @@ -63,7 +63,6 @@ } { Package instantiation callback proc. } { - # create a content folder set folder_id [content::folder::new \ @@ -73,6 +72,8 @@ content::folder::register_content_type -folder_id $folder_id -content_type {pm_project} -include_subtypes t content::folder::register_content_type -folder_id $folder_id -content_type {pm_task} -include_subtypes t + + callback pm::install::after_instantiate -package_id $package_id } ad_proc -private pm::install::package_uninstantiate { 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.1 -r1.2 --- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl 15 Jun 2005 13:41:01 -0000 1.1 +++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl 16 Jun 2005 07:42:39 -0000 1.2 @@ -60,6 +60,11 @@ } { } +ad_proc -public -callback pm::install::after_instantiate { + {-package_id:required} +} { +} + ad_proc -public -callback forum::message_new -impl project_manager { {-package_id:required} {-message_id:required}