<%
#
# Copyright (C) 2001, 2002 OpenForce, Inc.
#
# This file is part of dotLRN.
#
# dotLRN is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
%>
<% set dotlrn_url [dotlrn::get_url] %>
[ Join/Drop a Class or Community Group ]
<%
set old_simple_community_type ""
set new_simple_community_type ""
set old_level 0
set new_level 0
%>
<%
if {![string equal $communities(simple_community_type) dotlrn_community]} {
set new_simple_community_type $communities(simple_community_type)
}
# if {[string equal $communities(simple_community_type) dotlrn_club]} {
# set new_level [expr $communities(tree_level) - 1]
# } elseif {[string equal $communities(simple_community_type) dotlrn_class_instance]} {
# set new_level [expr $communities(tree_level) - 3]
# }
set new_level $communities(tree_level)
%>
<% set old_level [expr $new_level - 1] %>
<%= [parameter::get -parameter class_instances_pretty_plural] %>:
<%= [parameter::get -parameter clubs_pretty_plural] %>:
@communities.pretty_name@
[
Administer
]
<%
set old_simple_community_type $new_simple_community_type
set old_level $new_level
%>
<%
for {set i $new_level} {$i > 0} {incr i -1} {
template::adp_puts "\n"
}
%>