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.37 -r1.38
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Mar 2002 02:02:07 -0000	1.37
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Mar 2002 17:29:09 -0000	1.38
@@ -40,14 +40,20 @@
 </querytext>
 </fullquery>
 
-    <fullquery name="dotlrn_community::get_parent_id.select_parent_id">
-        <querytext>
-            select dotlrn_communities.parent_community_id
-            from dotlrn_communities
-            where dotlrn_communities.community_id = :community_id
-        </querytext>
-    </fullquery>
+<fullquery name="dotlrn_community::get_parent_id.select_parent_id">
+<querytext>
+select dotlrn_communities.parent_community_id
+from dotlrn_communities
+where dotlrn_communities.community_id = :community_id
+</querytext>
+</fullquery>
 
+<fullquery name="dotlrn_community::check_community_key_valid_p.collision_check">
+<querytext>
+select 1 from dotlrn_communities where :parent_community_id in (select parent_community_id from dotlrn_communities where dotlrn_communities.community_key = :community_key)
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_type_node_id.select_node_id">
 <querytext>
 select node_id from site_nodes where object_id= (select package_id from dotlrn_community_types where community_type= :community_type)