Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 29 Nov 2001 06:05:37 -0000 1.27 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 29 Nov 2001 07:00:37 -0000 1.28 @@ -167,7 +167,7 @@ set admin_segment_id [rel_segments_new $community_id dotlrn_admin_rel "Admins of $community_name"] # Grant permissions - ad_permission_grant $member_segment_id $community_id edit + ad_permission_grant $member_segment_id $community_id write ad_permission_grant $admin_segment_id $community_id admin } }