Index: openacs-4/packages/lars-blogger/www/blog.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.adp,v diff -u -r1.21 -r1.22 --- openacs-4/packages/lars-blogger/www/blog.adp 13 Jan 2005 13:58:22 -0000 1.21 +++ openacs-4/packages/lars-blogger/www/blog.adp 26 Mar 2005 00:10:43 -0000 1.22 @@ -8,10 +8,11 @@
  • @blog_name@
  • -
  • Archive
  • -
  • Add entry
  • +
  • Add @blog_name@ Item
  • +
  • Archive
  • + Index: openacs-4/packages/lars-blogger/www/entry-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.adp,v diff -u -r1.25 -r1.26 --- openacs-4/packages/lars-blogger/www/entry-chunk.adp 2 Mar 2005 18:11:30 -0000 1.25 +++ openacs-4/packages/lars-blogger/www/entry-chunk.adp 26 Mar 2005 00:10:43 -0000 1.26 @@ -57,8 +57,9 @@ | Publish - | Draft + | Unpublish + | Delete

    Index: openacs-4/packages/lars-blogger/www/entry-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-delete.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lars-blogger/www/entry-delete.adp 26 Mar 2005 00:10:43 -0000 1.1 @@ -0,0 +1,9 @@ + +@page_title@ +@context;noquote@ + +

    +Are you sure you want to delete this entry? +

    + + \ No newline at end of file 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.4 --- 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 26 Mar 2005 00:10:43 -0000 1.4 @@ -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 "Confirm Delete" +set context [list $page_title] + +ad_return_template + + + Index: openacs-4/packages/lars-blogger/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.adp,v diff -u -r1.37 -r1.38 --- openacs-4/packages/lars-blogger/www/index.adp 1 Mar 2005 12:15:55 -0000 1.37 +++ openacs-4/packages/lars-blogger/www/index.adp 26 Mar 2005 00:10:43 -0000 1.38 @@ -71,11 +71,15 @@ Index: openacs-4/packages/lars-blogger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/lars-blogger/www/index.tcl 1 Mar 2005 12:15:55 -0000 1.27 +++ openacs-4/packages/lars-blogger/www/index.tcl 26 Mar 2005 00:10:43 -0000 1.28 @@ -207,3 +207,5 @@ if { [llength $context] > 0 } { set context [lreplace $context end end [lindex [lindex $context end] end]] } + +set blog_name [lars_blog_name]