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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/package-delete-2.tcl	22 Jan 2003 18:39:11 -0000	1.2
@@ -7,6 +7,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum
+    {remove_files:boolean 0}
     {sql_drop_scripts:multiple ""}
 }
 
@@ -41,7 +42,7 @@
 }
 
 db_transaction {
-    apm_package_delete -callback apm_doc_body_callback $package_key
+    apm_package_delete -remove_files=$remove_files -callback apm_doc_body_callback $package_key
 } on_error {
     if {[apm_package_registered_p $package_key] } {
 	doc_body_append "The database returned the following error
Index: openacs-4/packages/acs-admin/www/apm/package-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-delete.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/package-delete.tcl	17 Feb 2002 17:11:21 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/package-delete.tcl	22 Jan 2003 18:39:11 -0000	1.4
@@ -40,13 +40,15 @@
 
 set body "[apm_header -form "action=\"package-delete-2\" method=\"post\"" [list "version-view?version_id=$version_id" "$pretty_name $version_name"] "Delete"]
 
-Deleting a package removes it from the filesystem and removes all record of it from the APM's
-database.
+<p>Deleting a package removes all record of it from the APM's database.</p>
+
 <p>
 
 [export_form_vars version_id]
 $file_list
 
+<p>
+<input type=\"checkbox\" name=\"remove_files\" value=\"1\"> Also delete package files from the filesystem.</p>
 <input type=submit value=\"Delete Package\">
 </form>
 [ad_footer]"