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.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/package-delete.tcl	22 Jan 2003 18:39:11 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/package-delete.tcl	25 Feb 2003 16:57:20 -0000	1.5
@@ -14,24 +14,17 @@
 
 set db_type [db_type]
 
-db_foreach apm_package_drop_scripts {
-    select file_id, path 
-    from apm_package_files
-    where version_id = :version_id
-    and file_type = 'data_model_drop'
-    and (db_type is null or db_type = :db_type)
-} {
+set file_list ""
+foreach file [apm_get_package_files -package_key $package_key -file_types data_model_drop] {
     append file_list "  <tr>
-    <td><input type=checkbox name=\"sql_drop_scripts\" value=$file_id></td>
-    <td>$path</td>
+    <td><input type=checkbox name=\"sql_drop_scripts\" value=$file checked></td>
+    <td>$file</td>
   </tr>"
-} if_no_rows {
-    set file_list ""
-}
+} 
 
 if {![empty_string_p $file_list]} {
     set file_list "
-    Please check the drop scripts you want to run.  Be aware that this will
+    We recommend sourcing all of the drop scripts for the package.  Be aware that this will
     erase all data associated with this package from the database.
 <table cellpadding=3 cellspacing=3>
 $file_list