Index: openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	22 Jan 2003 18:39:11 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	31 Jan 2003 17:00:55 -0000	1.3
@@ -25,6 +25,9 @@
 
 doc_body_append [apm_header [list "version-view?version_id=$version_id" "$pretty_name $version_name"] "Delete"]
 
+# Invoke the Tcl callback before the sql drop scripts
+apm_invoke_callback_proc -version_id $version_id -type before-uninstall -arg_list [list version_id $version_id]
+
 if {![empty_string_p $sql_drop_scripts]} {
     
     doc_body_append "Now executing drop scripts.