Index: openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl	9 Aug 2002 18:39:27 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl	20 Mar 2003 15:42:59 -0000	1.8.2.1
@@ -31,7 +31,7 @@
 # if the user isn't already a dotLRN user make him so
 if {!${is_dotlrn_user}} {
     dotlrn::user_add -user_id $user_id -type professor -can_browse
-    acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn_community::get_package_id $community_id] -value t
+    acs_privacy::set_user_read_private_data -user_id $user_id -object_id [dotlrn::get_package_id] -value t
 }
 
 # Add the relation
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.8 -r1.8.2.1
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	9 Aug 2002 18:39:32 -0000	1.8
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	20 Mar 2003 15:42:59 -0000	1.8.2.1
@@ -19,7 +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]]
+set can_read_private_data_p [dotlrn::user_can_read_private_data_p]
 
 set query select_forums