Index: openacs-4/packages/lars-blogger/www/entry-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-delete.tcl,v
diff -u -r1.3 -r1.3.4.1
--- openacs-4/packages/lars-blogger/www/entry-delete.tcl	16 Oct 2003 23:10:45 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/entry-delete.tcl	20 Apr 2005 14:27:43 -0000	1.3.4.1
@@ -3,6 +3,24 @@
     {return_url "."}
 }
 
-lars_blogger::entry::delete -entry_id $entry_id
+ad_form -name confirmation \
+    -cancel_url $return_url \
+    -form {
+	{entry_id:text(hidden)
+	    {value $entry_id}
+	}
+    } -on_submit {
+	lars_blogger::entry::delete -entry_id $entry_id
+    } -after_submit {
+	ad_returnredirect $return_url
+	ad_script_abort
+    } \
+    -export {return_url}
 
-ad_returnredirect $return_url
+set page_title "[_ lars-blogger.Confirm_Delete]"
+set context [list $page_title]
+
+ad_return_template
+
+
+