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.68 -r1.69 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 7 Mar 2002 22:22:44 -0000 1.68 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 8 Mar 2002 22:01:32 -0000 1.69 @@ -731,19 +731,20 @@ "[get_community_name $subcomm_id]\n" if {[dotlrn::user_can_admin_community_p $subcomm_id]} { - append subcomm_chunk " - \[admin\]" + append subcomm_chunk " - \[\ \;admin\ \;\]" } append subcomm_chunk \ "\n" + [get_subcomm_chunk -community_id $subcomm_id] \ + "\n" } else { append subcomm_chunk \ - "$pretext " \ - "[get_community_name $subcomm_id]\n" + "$pretext " \ + "[get_community_name $subcomm_id]\n" } } + return $subcomm_chunk }