Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	12 Feb 2002 19:08:08 -0000	1.26
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Feb 2002 19:43:11 -0000	1.27
@@ -192,6 +192,18 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_parent_id.select_parent_id">
+<querytext>
+select parent_community_id from dotlrn_communities where community_id = :community_id
+</querytext>
+</fullquery>
+
+<fullquery name="dotlrn_community::get_subcomm_list.select_subcomms">
+<querytext>
+select community_id as subcomm_id from dotlrn_communities where parent_community_id = :community_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_community_type_package_id.select_package_id">
 <querytext>
 select package_id from dotlrn_community_types where community_type= :community_type
@@ -226,6 +238,13 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_description.select_community_description">
+<querytext>
+select description from dotlrn_communities where community_id= :community_id
+</querytext>
+</fullquery>
+
+
 <fullquery name="dotlrn_community::get_portal_template_id.select_portal_template_id">
 <querytext>
 select portal_template_id from dotlrn_communities where community_id= :community_id