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.9 -r1.10
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl	1 Oct 2003 19:12:05 -0000	1.9
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl	16 Oct 2003 23:10:45 -0000	1.10
@@ -42,6 +42,8 @@
 set blog(publish_url) "${package_url}entry-publish?[export_vars { entry_id return_url }]"
 set blog(revoke_url) "${package_url}entry-revoke?[export_vars { entry_id return_url }]"
 
+set blog(write_p) [permission::write_permission_p -object_id $blog(entry_id) -creation_user $blog(user_id)]
+
 if { [empty_string_p $screen_name] } {
     set blog(entry_archive_url) "${package_url}one-entry?[export_vars { entry_id }]"
 } else {