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.31 -r1.32
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	5 Mar 2002 22:37:34 -0000	1.31
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Mar 2002 06:48:53 -0000	1.32
@@ -186,6 +186,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::has_subcommunity_p.select_subcomm_check">
+<querytext>
+select count(*) from dual where exists (select 1 from dotlrn_communities where parent_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