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 -N -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 @@

@comments.title@

@comments.content;noquote@

-

#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 -N -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) {} " Continued..."] \ @@ -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