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]} {