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.27.2.1 -r1.27.2.2
--- openacs-4/packages/lars-blogger/www/entry-chunk.adp 24 Sep 2005 01:18:02 -0000 1.27.2.1
+++ openacs-4/packages/lars-blogger/www/entry-chunk.adp 6 Apr 2007 07:52:26 -0000 1.27.2.2
@@ -71,7 +71,7 @@
<a name="comment@comments.comment_id@"></a>
<h3 class="lars_blogger_comment_title">@comments.title@</h3>
<p class="lars_blogger_comment_text">@comments.content;noquote@</p>
- <p><if @comments.trackback_p@ eq "f">#lars-blogger.by_commentsauthor#</if><else>#lars-blogger.Trackback_from# <a href="@comments.trackback_url@" title="@comments.trackback_name@">@comments.trackback_name@</a></else> #lars-blogger.lt_on_commentspretty_dat#</p>
+ <p><if @comments.trackback_p@ eq "f">#lars-blogger.by_commentsauthor#</if><else>#lars-blogger.Trackback_from# <a href="@comments.trackback_url@" title="@comments.trackback_name@">@comments.trackback_name@</a></else> #lars-blogger.lt_on_commentspretty_dat#<if @admin_p@ eq 1 or @comments.creation_user@ eq @user_id@> | <a href="@general_comments_package_url@comment-edit?comment_id=@comments.comment_id@&return_url=@comment_return_url@">Edit</a> | <a href="@general_comments_package_url@delete?comment_id=@comments.comment_id@&return_url=@comment_return_url@">Delete</a></if></p>
</multiple>
<center><a href="@blog.comment_add_url@" title="Comment on this entry">#lars-blogger.Add_comment#</a></center>
</if>
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.21.2.2 -r1.21.2.3
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl 7 Oct 2005 08:20:21 -0000 1.21.2.2
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl 6 Apr 2007 07:52:26 -0000 1.21.2.3
@@ -24,7 +24,6 @@
set show_comments_p $perma_p
}
-
# Maybe package_id is supplied, but maybe not
if { ![info exists package_id] } {
set package_id [ad_conn package_id]
@@ -51,6 +50,8 @@
set entry_id $blog(entry_id)
+set admin_p [permission::permission_p -object_id $package_id -privilege admin -party_id $user_id]
+
lars_blogger::entry::htmlify \
-max_content_length $max_content_length \
-more [ad_decode [ad_return_url] $blog(permalink_url) {} " <a href=\"[ad_quotehtml $blog(permalink_url)]\">Continued...</a>"] \
@@ -83,3 +84,5 @@
set blog(posted_time_pretty) [util::age_pretty \
-timestamp_ansi $blog(entry_date_ansi) \
-sysdate_ansi $blog(sysdate_ansi)]
+
+set comment_return_url "${package_url}flush-cache?[export_vars { return_url }]"
\ No newline at end of file