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.58 -r1.59
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	14 May 2002 21:42:15 -0000	1.58
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	15 May 2002 05:18:10 -0000	1.59
@@ -48,7 +48,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check">
+    <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check_with_parent">
         <querytext>
             select count(*)
             from dotlrn_communities_all
@@ -58,6 +58,13 @@
         </querytext>
     </fullquery>
 
+
+    <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check_simple">
+        <querytext>
+            select count(*) from dotlrn_communities_all where community_key = :community_key
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_community::get_type_node_id.select_node_id">
         <querytext>
             select node_id
@@ -390,6 +397,16 @@
       </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::clone.update_portal_ids">
+        <querytext>
+            update dotlrn_communities
+            set portal_id = :portal_id,
+                non_member_portal_id = :non_member_portal_id,
+                admin_portal_id = :admin_portal_id
+            where community_id = :clone_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_community::archive.update_archive_p">
       <querytext>
         update dotlrn_communities set archived_p = 't' where community_id = :community_id