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 -N -r1.81 -r1.81.2.1
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	21 Oct 2003 22:06:37 -0000	1.81
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	16 Feb 2004 14:50:53 -0000	1.81.2.1
@@ -415,6 +415,23 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::clone.delete_default_acs_attribute_values">
+        <querytext>
+            delete
+            from acs_attribute_values
+            where object_id = :clone_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_community::clone.copy_customizations_if_any">
+        <querytext>
+            insert into acs_attribute_values
+            (object_id,attribute_id,attr_value)
+            select :clone_id, attribute_id, attr_value
+            from acs_attribute_values where object_id = :community_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn_community::archive.update_archive_p">
       <querytext>
         update dotlrn_communities_all set archived_p = 't' where community_id = :community_id