Index: openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl	22 Aug 2003 11:18:28 -0000	1.2
+++ openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl	17 Oct 2003 00:39:56 -0000	1.3
@@ -25,15 +25,23 @@
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
 set read_p 0
+array set package_read_p [list]
+array set package_create_p [list]
 foreach package_id $config(package_id) {
-    if {[permission::permission_p -object_id $package_id -privilege read]} {
+    set package_read_p($package_id) [permission::permission_p -object_id $package_id -privilege read]
+    set package_create_p($package_id) [permission::permission_p -object_id $package_id -privilege create]
+    if { $package_read_p($package_id) } {
         set read_p 1
-        break
     }
 }
 
 db_multirow -extend { view_url add_url } entries entries {} {
+    if { !$package_read_p($package_id) } {
+        continue
+    }
     set content [string_truncate -len 100 $content]
     set view_url "${base_url}one-entry?[export_vars { entry_id }]"
-    set add_url "${base_url}entry-edit"
+    if { $package_create_p($package_id) } {
+        set add_url "${base_url}entry-edit"
+    }
 }