Index: openacs-4/packages/forums-portlet/www/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	13 Jan 2005 13:58:18 -0000	1.12
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	27 Jul 2006 12:34:48 -0000	1.12.2.1
@@ -18,6 +18,8 @@
 
 set shaded_p $config(shaded_p)
 set list_of_package_ids $config(package_id)
+
+ns_log Notice "$list_of_package_ids"
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
 set query select_forums
@@ -30,4 +32,12 @@
 
 set user_id [ad_conn user_id]
 
+set old_list_of_package_ids $list_of_package_ids
+set list_of_package_ids [list]
+foreach package_id $old_list_of_package_ids {
+    if {[permission::permission_p -object_id $package_id -privilege "read"]} {
+	lappend list_of_package_ids $package_id
+    }
+}
+
 db_multirow forums $query {}