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.11 -r1.12
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	20 Apr 2004 21:13:44 -0000	1.11
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	13 Jan 2005 13:58:18 -0000	1.12
@@ -19,8 +19,15 @@
 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]]
 
 set query select_forums
 
+if { [acs_privacy::privacy_control_enabled_p] } {
+    set private_data_restriction [db_map dbqd.forums-portlet.www.forums-portlet.restrict_by_private_data_priv]
+} else {
+    set private_data_restriction ""
+}
+
+set user_id [ad_conn user_id]
+
 db_multirow forums $query {}