Index: openacs-4/packages/acs-subsite/www/admin/applications/application-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-delete.adp,v
diff -u -r1.2.20.1 -r1.2.20.2
--- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.adp	11 Sep 2013 18:40:13 -0000	1.2.20.1
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.adp	3 Sep 2014 14:13:39 -0000	1.2.20.2
@@ -2,6 +2,9 @@
   <property name="doc(title)">@page_title@</property>
   <property name="context">@context@</property>
 
+<h2>@page_title@</h2>
+@listing;noquote@
+
 <p>
   Are you sure you want to delete <if @num@ eq 1>this application</if><else>these @num@ applications</else>?
 </p>
Index: openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl,v
diff -u -r1.4.20.2 -r1.4.20.3
--- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	3 Sep 2014 12:30:01 -0000	1.4.20.2
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	3 Sep 2014 14:13:39 -0000	1.4.20.3
@@ -9,6 +9,7 @@
     {return_url .}
     {confirm_p 0}
 }
+set listing ""
 
 if { !$confirm_p } {
     set num [llength $node_id]
@@ -23,6 +24,19 @@
     set yes_url [export_vars -base [ad_conn url] { node_id:multiple return_url { confirm_p 1 } }]
     set no_url "."
 
+    set package_ids ""
+    append listing <ul>\n
+    foreach id $node_id {
+
+        set dict [site_node::get_from_node_id -node_id $id]
+        append listing "<li>" \
+            [dict get $dict instance_name] " " \
+            [dict get $dict url] " " \
+            "(package_id [dict get $dict package_id])" \
+            </li> "\n"
+    }
+    append listing </ul>\n
+
     return
 }
 
@@ -57,3 +71,9 @@
 ad_returnredirect $return_url
 
 
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: