Index: openacs-4/packages/logger/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/apm-callback-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/logger/tcl/apm-callback-procs.tcl	25 Apr 2003 09:47:11 -0000	1.2
+++ openacs-4/packages/logger/tcl/apm-callback-procs.tcl	8 May 2003 13:54:59 -0000	1.3
@@ -19,6 +19,21 @@
     logger::variable::new -name "Expense" -unit "Euro" -pre_installed_p 1
 }
 
+ad_proc -public logger::apm::before_uninstall {} {
+    This proc needs to tear down whatever the logger::apm::after_install proc
+    sets up.
+
+    @author Peter Marklund
+} {
+    # Let's delete all variables as this is guaranteed to cover the pre-installed ones
+    db_foreach all_variables {
+        select variable_id
+        from logger_variables
+    } {
+        logger::variable::delete -variable_id $variable_id
+    }
+}
+
 ad_proc -public logger::apm::before_uninstantiate {
     {-package_id:required}
 } {