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.122 -r1.123 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 19 May 2002 15:02:13 -0000 1.122 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 19 May 2002 16:22:27 -0000 1.123 @@ -1121,7 +1121,7 @@ if {[dotlrn::user_can_admin_community_p $sc_id]} { append chunk \ - "\[admin\]" + "\[ admin \]" } append chunk \ @@ -1148,7 +1148,7 @@ && [not_closed_p -community_id $sc_id]} { append chunk \ - "\[" + "\[" if {[member_pending_p -community_id $sc_id -user_id $user_id]} { append chunk \ @@ -1161,15 +1161,16 @@ "join" } - append chunk "\]\n" + append chunk "\]\n" } if {[dotlrn::user_can_admin_community_p $sc_id]} { append chunk \ - " \[admin\]\n" + " \[ Administer \]\n" } } } + return $chunk }