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 @@
+
+
+select count(*) from dual where exists (select 1 from dotlrn_communities where parent_community_id = :community_id)
+
+
+
select community_id as subcomm_id from dotlrn_communities where parent_community_id = :community_id