Index: openacs-4/packages/assessment/tcl/as-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-install-procs.tcl,v diff -u -N -r1.35 -r1.35.2.1 --- openacs-4/packages/assessment/tcl/as-install-procs.tcl 26 Sep 2006 00:22:45 -0000 1.35 +++ openacs-4/packages/assessment/tcl/as-install-procs.tcl 7 Apr 2007 21:22:59 -0000 1.35.2.1 @@ -436,6 +436,27 @@ } } +ad_proc -public as::install::before_uninstantiate { + {-package_id} + {-node_id ""} +} { + before-uninstantiate callback. +} { + # reset the RegistrationId parameter + as::parameter::reset_parameter -package_id $package_id -node_id $node_id + # delete actions + db_foreach get_package_actions {} { + db_exec_plsql delete_action {} + } +} - \ No newline at end of file +ad_proc -public as::install::before_unmount { + {-package_id} + {-node_id ""} +} { + before-unmount callback. +} { + # reset the RegistrationId parameter + as::parameter::reset_parameter -package_id $package_id -node_id $node_id +}