Index: openacs-4/packages/dotlrn-fs/dotlrn-fs.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/dotlrn-fs.info,v
diff -u -r1.26.2.4 -r1.26.2.5
--- openacs-4/packages/dotlrn-fs/dotlrn-fs.info	27 Mar 2006 23:58:14 -0000	1.26.2.4
+++ openacs-4/packages/dotlrn-fs/dotlrn-fs.info	4 Apr 2006 15:22:02 -0000	1.26.2.5
@@ -7,12 +7,12 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="2.2.0a1" url="http://openacs.org/repository/download/apm/dotlrn-fs-2.2.0a1.apm">
+    <version name="2.2.0a2" url="http://openacs.org/repository/download/apm/dotlrn-fs-2.2.0a2.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <release-date>2005-11-01</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
 
-        <provides url="dotlrn-fs" version="2.2.0a1"/>
+        <provides url="dotlrn-fs" version="2.2.0a2"/>
         <requires url="dotlrn" version="2.2.0a1"/>
         <requires url="file-storage" version="4.7d3"/>
         <requires url="fs-portlet" version="2.2.0a1"/>
@@ -26,6 +26,7 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="dotlrn_club_default_folders"  description="Default folders for clubs."/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="dotlrn_community_default_folders"  description="Default folders for communities of type dotlrn_community, most likely subcommunities."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="WritePermissionForMembersP"  default="1"  description="Should the community members get the write permission to the folders?"/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="WritePermissionForMembersOnPublicP"  default="0"  description="Should the community members get the write permission to the public folder?"/>
         </parameters>
 
     </version>
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.90.2.2 -r1.90.2.3
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	27 Oct 2005 11:24:03 -0000	1.90.2.2
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	4 Apr 2006 15:22:02 -0000	1.90.2.3
@@ -211,6 +211,10 @@
         permission::set_not_inherit -object_id $public_folder_id
         permission::grant -party_id $admins -object_id $public_folder_id -privilege write
 
+	if {[parameter::get -parameter "WritePermissionForMembersOnPublicP" -default "0"]} {
+	    permission::grant -party_id $members -object_id $public_folder_id -privilege write
+	}
+	
         set dotlrn_public [dotlrn::get_users_rel_segment_id]
         permission::grant -party_id $dotlrn_public -object_id $public_folder_id -privilege read