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.2.2 -r1.183.2.3
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Feb 2004 15:50:09 -0000	1.183.2.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Feb 2004 02:36:51 -0000	1.183.2.3
@@ -311,7 +311,10 @@
         # this community should be able to read this instance (and
         # it's children)
         permission::set_not_inherit -object_id $community_id
-	
+
+        # Grant read_private_data permission to "non guest" users.
+        dotlrn_privacy::grant_read_private_data_to_non_guests -object_id $community_id
+        
         #this block sets permissions for subcommunities
         while {1} {
             if {![empty_string_p $parent_community_id]} {
@@ -1743,6 +1746,9 @@
                 db_dml copy_customizations_if_any {}
             }
 
+            # Grant read_private_data permission to "non guest" users.
+            dotlrn_privacy::grant_read_private_data_to_non_guests -object_id $clone_id
+
             # recursively clone the subcommunities
             set subcomm_list [get_subcomm_info_list -community_id $community_id]