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.61 -r1.62
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Feb 2002 20:38:37 -0000	1.61
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 Mar 2002 23:54:00 -0000	1.62
@@ -681,6 +681,21 @@
         return $subcomm_list
     }
 
+    ad_proc -public get_subcomm_chunk {
+        {-community_id:required}
+    } {
+        Returns a html fragment of the subcommunities of this community or 
+        if none, the empty list
+    } {
+        set subcomm_chunk "<ul>"
+
+        db_foreach select_subcomms {} {
+            append subcomm_chunk "<li><a href=[get_community_url $subcomm_id]>[get_community_name $subcomm_id]</a></li>"
+        } 
+
+        return [append subcomm_chunk "</ul>"]
+    }
+
     ad_proc -public get_community_type_url {
         community_type
     } {