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.11 -r1.12
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	1 Dec 2001 23:16:53 -0000	1.11
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	3 Dec 2001 20:35:05 -0000	1.12
@@ -77,7 +77,14 @@
 	creation_ip => :ip);
 	end;"]
 
-	# FIXME: Set up permissions on this folder
+	# Set up permissions on these folders
+	# The public folder is available to all dotLRN Full Access Users
+	# The root folder is available only to community members
+	set members [dotlrn_community::get_rel_segment_id -community_id $community_id -rel_type dotlrn_member_rel]
+	ad_permission_grant $members $folder_id read
+
+	set dotlrn_public [dotlrn::get_full_users_rel_segment_id]
+	ad_permission_grant $dotlrn_public $public_folder_id read
 	
 	# non-member page stuff
 	# Get non member portal_id