Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	6 Mar 2002 23:21:16 -0000	1.2
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	7 Mar 2002 06:49:10 -0000	1.3
@@ -13,29 +13,10 @@
 
 set pretty_name [dotlrn_community::get_community_name $community_id]
 set description [dotlrn_community::get_community_description $community_id]
+set has_subcomm_p \
+        [dotlrn_community::has_subcommunity_p -community_id $community_id]
 
-# aks move to "members" portlets
-#if {[dotlrn::user_can_read_private_data_p]} {
-#    set member_link "<p><a href=\"members\">List of Members</a>"
-#} else  {
-#    set member_link ""
-#}
+set subcomm_data \
+        [dotlrn_community::get_subcomm_chunk -community_id $community_id]
 
-set subcomm_list [dotlrn_community::get_subcomm_list -community_id $community_id]
 
-if {[llength $subcomm_list] > 0} {
-
-    set subcomm_data "Subcommunities: <P><ul>"
-    
-    foreach subcomm_id $subcomm_list {
-        append subcomm_data \
-                "<li><a href=[dotlrn_community::get_community_url $subcomm_id]>[dotlrn_community::get_community_name $subcomm_id]</li>"
-    }
-
-    append subcomm_data "</ul>"
-
-} else {
-    
-    set subcomm_data ""
-}
-