Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	29 Jan 2003 15:41:25 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	31 Jan 2003 17:01:24 -0000	1.37
@@ -1315,6 +1315,18 @@
             return [list package_id node_id]
         }
 
+        before-uninstall {
+            return [list version_id]
+        }
+
+        before-uninstantiate {
+            return [list package_id]
+        }
+
+        before-unmount {
+            return [list package_id node_id]
+        }
+        
         default {
             # By default a callback proc takes no arguments
             return [list]
@@ -1330,7 +1342,7 @@
 
     @author Peter Marklund
 } {
-    return [list after-install after-instantiate after-mount]
+    return [list after-install after-instantiate after-mount before-uninstantiate before-uninstall before-unmount]
 }
 
 ad_proc -public apm_package_instance_new {
@@ -1398,7 +1410,11 @@
     package_id
 } {
     Deletes an instance of a package
-} {
+} {    
+    apm_invoke_callback_proc -package_key [apm_package_key_from_id $package_id] \
+                             -type before-uninstantiate \
+                             -arg_list [list package_id $package_id]
+
     db_exec_plsql apm_package_instance_delete {}
 }