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 -r1.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	21 Jan 2003 11:46:43 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	22 Jan 2003 18:36:16 -0000	1.24
@@ -611,6 +611,7 @@
     { 
 	-callback apm_dummy_callback
     }
+    {-remove_files:boolean}
     package_key
 } {
     
@@ -627,12 +628,14 @@
 	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."
 }