Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.86.6.14 -r1.86.6.15
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	30 Aug 2004 16:24:10 -0000	1.86.6.14
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	22 Oct 2004 19:29:42 -0000	1.86.6.15
@@ -125,6 +125,12 @@
         ]
         permission::grant -party_id $admins -object_id $folder_id -privilege admin
 
+        set group_id [db_string group_id_from_name "select group_id from groups where group_name='dotlrn-admin'" -default ""]
+
+        if {![empty_string_p $group_id] } {
+	    permission::grant -party_id $group_id -object_id $folder_id -privilege admin	
+        } 
+
         set root_community_type [dotlrn_community::get_toplevel_community_type_from_community_id \
                                      $community_id
         ]