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.90 -r1.91 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 26 Mar 2002 20:54:41 -0000 1.90 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 26 Mar 2002 21:52:05 -0000 1.91 @@ -932,24 +932,24 @@ append chunk "$pretext [get_community_name $sc_id]\n" - if {![member_p $sc_id $user_id] - && [not_closed_p -community_id $sc_id] - || [member_pending_p -community_id $sc_id -user_id $user_id]} { - # don't show the join link if the comm is closed, - # and the first space is good below - append chunk \ - "\[" - if {[needs_approval_p -community_id $sc_id]} { - if {[member_pending_p -community_id $sc_id -user_id $user_id]} { - append chunk "waiting for approval" - } else { - append chunk "request membership" - } - } else { - append chunk "join" - } + if {![member_p $sc_id $user_id] + && [not_closed_p -community_id $sc_id]} { - append chunk "\]\n" + append chunk \ + "\[" + + if {[member_pending_p -community_id $sc_id -user_id $user_id]} { + append chunk \ + "waiting for approval" + } elseif {[needs_approval_p -community_id $sc_id]} { + append chunk \ + "request membership" + } else { + append chunk \ + "join" + } + + append chunk "\]\n" } if {[dotlrn::user_can_admin_community_p $sc_id]} {