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.76 -r1.77
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl 14 Mar 2002 23:47:17 -0000 1.76
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 15 Mar 2002 00:05:20 -0000 1.77
@@ -749,6 +749,7 @@
{-user_id ""}
{-community_id:required}
{-pretext "
"}
+ {-join_target "register"}
} {
Returns a html fragment of the subcommunity hierarchy of this
community or if none, the empty list.
@@ -764,7 +765,6 @@
if {[has_subcommunity_p -community_id $sc_id] \
&& [member_p $sc_id $user_id]} {
# only go down a level if user is a member of the sc
-
set url [get_community_url $sc_id]
append chunk "$pretext [get_community_name $sc_id]\n"
@@ -786,7 +786,7 @@
if {[not_closed_p -community_id $sc_id] \
&& ![member_p $sc_id $user_id]} {
append chunk \
- "\[join\]"
+ "\[join\]"
}
if {[dotlrn::user_can_admin_community_p $sc_id]} {