Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp 31 May 2002 13:26:28 -0000 1.29
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp 31 May 2002 21:31:18 -0000 1.30
@@ -25,46 +25,35 @@
+
<%
- set old_simple_community_type ""
- set new_simple_community_type ""
set old_level 0
set new_level 0
+ set depth 0
%>
-
+
+ - <%= [parameter::get -parameter class_instances_pretty_plural] %>:
+
+
+ - <%= [parameter::get -parameter clubs_pretty_plural] %>:
+
-<%
- if {![string equal $communities(simple_community_type) dotlrn_community]} {
- set new_simple_community_type $communities(simple_community_type)
- }
+
- set new_level $communities(tree_level)
-%>
+<% set new_level $communities(tree_level) %>
-
-
-
+
+<% incr depth -1 %>
+
+
-
-
-
-
-<% set old_level [expr $new_level - 1] %>
-
-
- <%= [parameter::get -parameter class_instances_pretty_plural] %>:
-
-
- <%= [parameter::get -parameter clubs_pretty_plural] %>:
-
-
+
+<% incr depth 1 %>
+
-
-
-
@communities.pretty_name@
@@ -76,19 +65,17 @@
-<%
- set old_simple_community_type $new_simple_community_type
- set old_level $new_level
-%>
+<% set old_level $new_level %>
-
+
<%
- for {set i $new_level} {$i > 0} {incr i -1} {
+ for {set i $depth} {$i > 0} {incr i -1} {
template::adp_puts "\n"
}
%>
+