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.1 -r1.183.2.2
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Feb 2004 14:50:53 -0000	1.183.2.1
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Feb 2004 15:50:09 -0000	1.183.2.2
@@ -312,20 +312,20 @@
         # it's children)
         permission::set_not_inherit -object_id $community_id
 	
-	#this block sets permissions for subcommunities
-	while {1} {
-	    if {![empty_string_p $parent_community_id]} {
-		#admin of the parent need admin on the subcommunity.
-		set parent_admin_party [db_string "parent_admin_party" "select segment_id from rel_segments where group_id = :parent_community_id and rel_type='dotlrn_admin_rel'"]
-		permission::grant -party_id $parent_admin_party -object_id $community_id -privilege "admin"
-		
-		#if this community has a parent we need to work up the chain.
-		set parent_community_id [get_parent_id -community_id $parent_community_id]
-		
-	    } else {
-		return $community_id
-	    }
-	}
+        #this block sets permissions for subcommunities
+        while {1} {
+            if {![empty_string_p $parent_community_id]} {
+                #admin of the parent need admin on the subcommunity.
+                set parent_admin_party [db_string "parent_admin_party" "select segment_id from rel_segments where group_id = :parent_community_id and rel_type='dotlrn_admin_rel'"]
+                permission::grant -party_id $parent_admin_party -object_id $community_id -privilege "admin"
+                
+                #if this community has a parent we need to work up the chain.
+                set parent_community_id [get_parent_id -community_id $parent_community_id]
+                
+            } else {
+                return $community_id
+            }
+        }
     }
 
     ad_proc set_active_dates {