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.31 -r1.32
--- openacs-4/packages/lars-blogger/www/entry-chunk.adp 16 Oct 2006 15:21:54 -0000 1.31
+++ openacs-4/packages/lars-blogger/www/entry-chunk.adp 11 Mar 2007 17:20:49 -0000 1.32
@@ -70,8 +70,8 @@
-
- #lars-blogger.by_commentsauthor##lars-blogger.Trackback_from# @comments.trackback_name@ #lars-blogger.lt_on_commentspretty_dat#
+
+ #lars-blogger.by_commentsauthor##lars-blogger.Trackback_from# @comments.trackback_name@ #lars-blogger.lt_on_commentspretty_dat# | Edit | Delete
#lars-blogger.Add_comment#
Index: openacs-4/packages/lars-blogger/www/entry-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl 8 Aug 2006 21:26:57 -0000 1.22
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl 11 Mar 2007 17:20:49 -0000 1.23
@@ -50,13 +50,12 @@
set show_poster_p [ad_parameter "ShowPosterP" "" "1"]
set entry_id $blog(entry_id)
-
+set admin_p [permission::permission_p -object_id $entry_id -party_id $user_id -privilege admin]
lars_blogger::entry::htmlify \
-max_content_length $max_content_length \
-more [ad_decode [ad_return_url] $blog(permalink_url) {} " Continued..."] \
-array blog
-
set blog(edit_url) [export_vars -base "${package_url}entry-edit" { entry_id return_url }]
if {$perma_p} {
set blog(delete_url) [export_vars -base "${package_url}entry-delete" { entry_id {return_url $package_url} }]
@@ -75,9 +74,11 @@
set display_categories [lars_blog_categories_p \
-package_id [ad_conn package_id]]
+set comment_return_url "${package_url}flush-cache?[export_vars { return_url }]"
+
if { [template::util::is_true $show_comments_p] } {
lars_blogger::entry::get_comments -entry_id $entry_id
- set blog(comment_add_url) [export_vars -base "${general_comments_package_url}comment-add" { { object_id $entry_id } { object_name $blog(title) } { return_url "${package_url}flush-cache?[export_vars { return_url }]"} }]
+ set blog(comment_add_url) [export_vars -base "${general_comments_package_url}comment-add" { { object_id $entry_id } { object_name $blog(title) } { return_url "$comment_return_url"} }]
}
set blog(posted_time_pretty) [util::age_pretty \