Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 1 Dec 2001 23:16:41 -0000 1.10 +++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 3 Dec 2001 20:34:47 -0000 1.11 @@ -73,6 +73,13 @@ bboard_portlet::make_self_available $pt_id bboard_portlet::add_self_to_page $pt_id $package_id + # Set up permissions for basic members (Admins inherit no problem) + set members [dotlrn_admin_rel::get_rel_segment_id -community_id $community_id -rel_type dotlrn_member_rel] + ad_permission_grant $members $package_id bboard_read_forum + ad_permission_grant $members $package_id bboard_read_category + ad_permission_grant $members $package_id bboard_read_message + ad_permission_grant $members $package_id bboard_create_message + # return the package_id return $package_id } @@ -99,7 +106,7 @@ For one-time init stuff } { - + }