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
}