Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -N -r1.15 -r1.15.2.1
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	30 Aug 2002 11:48:47 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	22 Jan 2003 18:26:51 -0000	1.15.2.1
@@ -487,7 +487,9 @@
 ad_proc -private apm_package_delete {
     { 
 	-callback apm_dummy_callback
+
     }
+    {-remove_files:boolean}
     package_key
 } {
     
@@ -504,12 +506,13 @@
 	end;
     }
     # Remove the files from the filesystem
-    if { [catch { 
-	file delete -force [acs_package_root_dir $package_key] 
-    } error] } {
-	apm_callback_and_log $callback "<li>Unable to delete [acs_package_root_dir $package_key]:<font color=red>$error</font>"
+    if {$remove_files_p == 1} {
+	if { [catch { 
+	    file delete -force [acs_package_root_dir $package_key] 
+	} error] } {
+	    apm_callback_and_log $callback "<li>Unable to delete [acs_package_root_dir $package_key]:<font color=red>$error</font>"
+	}
     }
-
     apm_callback_and_log $callback "<p>Done."
 }