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.65 -r1.66
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	6 Mar 2002 20:32:22 -0000	1.65
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	7 Mar 2002 06:48:53 -0000	1.66
@@ -686,6 +686,14 @@
         }
     }
 
+    ad_proc -public has_subcommunity_p {
+        {-community_id:required}
+    } {
+        Returns 1 if the community has a subcommunity
+    } {
+        return [db_0or1row select_subcomm_check {}]
+    }
+
     ad_proc -public get_subcomm_list {
         {-community_id:required}
     } {
@@ -703,18 +711,28 @@
 
     ad_proc -public get_subcomm_chunk {
         {-community_id:required}
+        {-pretext "<li>"}
     } {
-        Returns a html fragment of the subcommunities of this community or 
-        if none, the empty list
+        Returns a html fragment of the subcommunity hierarchy of this
+        community or if none, the empty list
     } {
-        set subcomm_chunk "<ul>"
-        
+        set subcomm_chunk ""
 
         foreach subcomm_id [get_subcomm_list -community_id $community_id] {
-            append subcomm_chunk "<li><a href=[get_community_url $subcomm_id]>[get_community_name $subcomm_id]</a></li>"
+            if {[has_subcommunity_p -community_id $subcomm_id]} {
+                append subcomm_chunk \
+                        "$pretext <a href=[get_community_url $subcomm_id]>" \
+                        "[get_community_name $subcomm_id]</a>\n" \
+                        "<ul>\n" \
+                        [get_subcomm_chunk -community_id $subcomm_id] \
+                        "</ul>\n"
+            } else {
+                append subcomm_chunk \
+                        "$pretext <a href=[get_community_url $subcomm_id]>" \
+                        "[get_community_name $subcomm_id]</a>\n" 
+            }
         } 
-
-        return [append subcomm_chunk "</ul>"]
+        return $subcomm_chunk
     }
 
     ad_proc -public get_community_type_url {