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.15.2.1 -r1.15.2.2
--- openacs-4/packages/lars-blogger/www/blog.adp	5 Feb 2004 17:46:10 -0000	1.15.2.1
+++ openacs-4/packages/lars-blogger/www/blog.adp	17 Feb 2004 14:21:41 -0000	1.15.2.2
@@ -8,7 +8,9 @@
       </th>
       <if @blog.rownum@ eq 1>
         <th align="right">
-            <a href="@entry_add_url@" title="Add an entry to @blog_name@">+</a>
+            <if @create_p@ true>
+              <a href="@entry_add_url@" title="Add an entry to @blog_name@">+</a>
+            </if>
             <if @blog_url@ not nil>
               <a href="@blog_url@" title="Visit @blog_name@ home">@blog_name@</a>
             </if>
Index: openacs-4/packages/lars-blogger/www/blog.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v
diff -u -r1.16.2.2 -r1.16.2.3
--- openacs-4/packages/lars-blogger/www/blog.tcl	11 Feb 2004 11:02:17 -0000	1.16.2.2
+++ openacs-4/packages/lars-blogger/www/blog.tcl	17 Feb 2004 14:21:41 -0000	1.16.2.3
@@ -21,7 +21,7 @@
     set package_id [ad_conn package_id]
 }
 
-set create_p [permission::permission_p -object_id $package_id -privilege read]
+set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 if { ![info exists category_id] } {
     set blog_category_id {}