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]