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.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	28 Aug 2003 09:41:40 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	18 Sep 2003 20:58:18 -0000	1.3
@@ -6,11 +6,25 @@
     @cvs-id $Id$
 } {
     node_id:integer,multiple
+    {confirm_p 0}
 }
 
-# TODO:
-# Add some kind of confirmation
+if { !$confirm_p } {
+    set num [llength $node_id]
 
+    if { $num == 0 } {
+        ad_returnredirect .
+        return
+    }
+
+    set page_title "Delete [ad_decode $num 1 "Application" "Applications"]"
+    set context [list [list "." "Applications"] $page_title]
+    set yes_url [export_vars -base [ad_conn url] { node_id:multiple { confirm_p 1 } }]
+    set no_url "."
+
+    return
+}
+
 db_transaction {
     foreach id $node_id {
         set package_id [site_node::get_object_id -node_id $id]
@@ -26,6 +40,7 @@
         
     }
 }
-
+    
 ad_returnredirect .
 
+