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.23 -r1.24
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp 5 Apr 2002 01:00:41 -0000 1.23
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp 7 Apr 2002 06:09:35 -0000 1.24
@@ -18,52 +18,70 @@
%>
+[ Join/Drop a Class or Community Group ]
-[Join/Drop a Class or Community Group]
+
-
-
-
-
- <%= [ad_parameter class_instances_pretty_plural] %>:
-
- -
- @classes.pretty_name@
-
- [admin]
-
-
-
-
- <%= [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $classes(community_id) -only_member_p 1] %>
-
-
-
-
-
-
- <%= [ad_parameter clubs_pretty_plural] %>:
-
-
+<%
+ 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"] == 1} {
+ set new_simple_community_type $communities(simple_community_type)
+ }
+ set new_level $communities(level)
+%>
+
+
+
+
+
+
+
+
+
+<% set old_level [expr $new_level - 1] %>
+
+
+ <%= [ad_parameter "class_instances_pretty_plural"] %>:
+
+
+ <%= [ad_parameter "clubs_pretty_plural"] %>:
+
+
+
+
+
+
- @clubs.pretty_name@
-
- [admin]
+ @communities.pretty_name@
+
+ [admin]
-
-
- <%= [dotlrn_community::get_subcomm_chunk_new -user_id $user_id -community_id $clubs(community_id) -only_member_p 1] %>
-
-
-
+
+<%
+ 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"
+ }
+%>
+
-
-
-
-