Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.183 -r1.183.2.1
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Nov 2003 14:02:22 -0000	1.183
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Feb 2004 14:50:53 -0000	1.183.2.1
@@ -1736,6 +1736,11 @@
                         -start_date [dotlrn_term::get_start_date -term_id $term_id] \
                         -end_date [dotlrn_term::get_end_date -term_id $term_id]
                 }
+
+                # Copy community attribute values from original.
+                # See "YON MAJOR HACK" above. -AG
+                db_dml delete_default_acs_attribute_values {}
+                db_dml copy_customizations_if_any {}
             }
 
             # recursively clone the subcommunities
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.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