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 -N -r1.26 -r1.26.2.1
--- openacs-4/packages/dotlrn-fs/dotlrn-fs.info	24 Feb 2005 13:33:09 -0000	1.26
+++ openacs-4/packages/dotlrn-fs/dotlrn-fs.info	23 Aug 2005 12:01:37 -0000	1.26.2.1
@@ -7,12 +7,12 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="2.1.1" url="http://openacs.org/repository/download/apm/dotlrn-fs-2.1.1.apm">
+    <version name="2.1.2d1" url="http://openacs.org/repository/download/apm/dotlrn-fs-2.1.2d1.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <release-date>2004-03-10</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
 
-        <provides url="dotlrn-fs" version="2.1.1"/>
+        <provides url="dotlrn-fs" version="2.1.2d1"/>
         <requires url="dotlrn" version="1.0"/>
         <requires url="file-storage" version="4.7d3"/>
         <requires url="fs-portlet" version="0.1a"/>
@@ -25,6 +25,7 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="dotlrn_class_instance_folders_to_show"  default="#dotlrn-fs.Assignments#,#dotlrn-fs.Lecture_Notes#,#dotlrn-fs.Handouts#" description="a comma seperated list of default folders (in the other param) that get &quot;folder-contents&quot; portlets"/>
             <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?"/>
         </parameters>
 
     </version>
Index: openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.de_DE.ISO-8859-1.xml,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.de_DE.ISO-8859-1.xml	13 Jan 2005 13:57:28 -0000	1.10
+++ openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.de_DE.ISO-8859-1.xml	23 Aug 2005 12:01:37 -0000	1.10.2.1
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="dotlrn-fs" package_version="2.1.0b1" locale="de_DE" charset="ISO-8859-1">
+<message_catalog package_key="dotlrn-fs" package_version="2.1.1" locale="de_DE" charset="ISO-8859-1">
 
   <msg key="All">Alle</msg>
   <msg key="All_items">Alle Inhalte</msg>
Index: openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml,v
diff -u -N -r1.13 -r1.13.2.1
--- openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml	13 Jan 2005 13:57:28 -0000	1.13
+++ openacs-4/packages/dotlrn-fs/catalog/dotlrn-fs.en_US.ISO-8859-1.xml	23 Aug 2005 12:01:37 -0000	1.13.2.1
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="dotlrn-fs" package_version="2.1.0b1" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="dotlrn-fs" package_version="2.1.1" locale="en_US" charset="ISO-8859-1">
 
   <msg key="All">All</msg>
   <msg key="All_items">All items</msg>
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 -N -r1.90 -r1.90.2.1
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	13 Jan 2005 13:57:28 -0000	1.90
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	23 Aug 2005 12:01:38 -0000	1.90.2.1
@@ -118,6 +118,12 @@
         ]
         permission::grant -party_id $members -object_id $folder_id -privilege read
 
+	# We need to grant members the ability to upload files to the folders. This should
+	# become a parameter. Not sure though how we can set such a parameter.
+	if {[parameter::get -parameter "WritePermissionForMembersP" -default "1"]} {
+	    permission::grant -party_id $members -object_id $folder_id -privilege write
+	}
+
         # admins of this community can admin the folder
         set admins [dotlrn_community::get_rel_segment_id \
             -community_id $community_id \