Index: openacs-4/packages/forums-portlet/www/forums-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums-portlet/www/forums-portlet.adp	2 Jun 2002 14:28:43 -0000	1.2
+++ openacs-4/packages/forums-portlet/www/forums-portlet.adp	2 Jun 2002 19:43:13 -0000	1.3
@@ -18,6 +18,7 @@
 
 %>
 
+<if @can_read_private_data_p@>
 <if @shaded_p@ ne "t">
 
   <if @forums:rowcount@ gt 0>
@@ -60,3 +61,4 @@
 <else>
   &nbsp;
 </else>
+</if>
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.1 -r1.2
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	30 May 2002 06:27:32 -0000	1.1
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	2 Jun 2002 19:43:13 -0000	1.2
@@ -19,6 +19,7 @@
 set shaded_p $config(shaded_p)
 set list_of_package_ids $config(package_id)
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
+set can_read_private_data_p [acs_privacy::user_can_read_private_data_p -object_id [ad_conn package_id]]
 
 db_multirow forums select_forums "
     select forums_forums.package_id,