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.16 -r1.17
--- openacs-4/packages/lars-blogger/www/blog.adp	14 Dec 2003 11:10:44 -0000	1.16
+++ openacs-4/packages/lars-blogger/www/blog.adp	17 Dec 2003 16:28:06 -0000	1.17
@@ -11,11 +11,8 @@
        class="action_link">@blog_name@</a><br />
   </if>
   
-  <b>&raquo;</b>
-  <a href="@archive_url@" title="Visit the archive for @blog_name@" class="action_link">Archive</a><br />
-  
+  <a href="@archive_url@" title="Visit the archive for @blog_name@" class="action">Archive</a>
   <if @create_p@ true>
-    <b>&raquo;</b>
-    <a href="@entry_add_url@" title="Add an entry to @blog_name@" class="action_link">Add entry</a>
+    <a href="@entry_add_url@" title="Add an entry to @blog_name@" class="action">Add entry</a>
   </if>
 </p>
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.13 -r1.14
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl	14 Dec 2003 11:10:44 -0000	1.13
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl	17 Dec 2003 16:28:06 -0000	1.14
@@ -44,7 +44,7 @@
 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)]
+set blog(write_p) [permission::write_permission_p -object_id $blog(entry_id) -creation_user $blog(user_id) -party_id [ad_conn untrusted_user_id]]
 
 if { [empty_string_p $screen_name] } {
     set blog(permalink_url) "${package_url}one-entry?[export_vars { entry_id }]"
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.17 -r1.18
--- openacs-4/packages/lars-blogger/www/index.tcl	8 Dec 2003 05:29:07 -0000	1.17
+++ openacs-4/packages/lars-blogger/www/index.tcl	17 Dec 2003 16:28:06 -0000	1.18
@@ -70,8 +70,8 @@
                           rsd_url $rsd_url \
                           stylesheet_url $stylesheet_url]]
 
-set create_p [permission::permission_p -object_id $package_id -privilege read]
-set admin_p [permission::permission_p -object_id $package_id -privilege admin]
+set create_p [permission::permission_p -object_id $package_id -privilege read -party_id [ad_conn untrusted_user_id]]
+set admin_p [permission::permission_p -object_id $package_id -privilege admin -party_id [ad_conn untrusted_user_id]]
 
 set display_users_p [parameter::get -parameter "DisplayUsersP" -default 0]
 set display_categories [lars_blog_categories_p -package_id $package_id]