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.2 -r1.3
--- openacs-4/packages/lars-blogger/www/entry-delete.tcl	28 Aug 2003 09:41:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/www/entry-delete.tcl	16 Oct 2003 23:10:45 -0000	1.3
@@ -1,15 +1,8 @@
 ad_page_contract {} {
     entry_id:integer
-    {return_url ""}
+    {return_url "."}
 }
 
-lars_blogger::entry::require_write_permission -entry_id $entry_id
+lars_blogger::entry::delete -entry_id $entry_id
 
-db_dml delete {
-    update pinds_blog_entries
-    set deleted_p = 't'
-    where entry_id = :entry_id
-}
-
-
 ad_returnredirect $return_url