Index: openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl	12 Mar 2005 21:36:37 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -12,10 +12,20 @@
 set context [list [list "." "Site Map"] $page_title]
 set user_id [ad_conn user_id]
 
-db_multirow -extend {instance_delete_url} packages_normal packages_normal_select {} {
+db_multirow -extend {instance_delete_url delete_id} packages_normal packages_normal_select {} {
     set instance_delete_url [export_vars -base instance-delete package_id]
+    set delete_id action-delete-$package_id
+    template::add_confirm_handler -id $delete_id -message "Are you sure you want to delete package $name"
 }
 
-db_multirow -extend {instance_delete_url} packages_singleton packages_singleton_select {} {
+db_multirow -extend {instance_delete_url delete_id} packages_singleton packages_singleton_select {} {
     set instance_delete_url [export_vars -base instance-delete package_id]
+    set delete_id action-delete-$package_id
+    template::add_confirm_handler -id $delete_id -message "Are you sure you want to delete package $name"
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: