Index: openacs-4/packages/file-storage/file-storage.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/file-storage.info,v
diff -u -r1.29.2.10 -r1.29.2.11
--- openacs-4/packages/file-storage/file-storage.info	21 Jul 2004 22:37:17 -0000	1.29.2.10
+++ openacs-4/packages/file-storage/file-storage.info	29 Jul 2004 00:03:18 -0000	1.29.2.11
@@ -7,7 +7,7 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="5.1.0a5" url="http://openacs.org/repository/download/apm/file-storage-5.1.0a5.apm">
+    <version name="5.1.0a6" url="http://openacs.org/repository/download/apm/file-storage-5.1.0a6.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Collaborative document storage</summary>
         <release-date>2004-07-21</release-date>
@@ -30,6 +30,7 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ArchiveCommand"  default="tar cf - {in_file} | gzip > {out_file}" description="Program (and program options) to use for archiving file storage objects. Use the special tags {in_file} and {out_file} (including the curly braces) to denote the locations of the input and output files on the command line."/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ArchiveExtension"  default="tgz" description="The extension that the programmer should add to the output file. This depends on the value of ArchiveCommand"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="GeneralCommentsP"  default="0" description="Allow comments to be attached to a file."/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="UseWebDavP"  default="0" description="Flag to determine if WebDav is active.  A flag of 1 (true) means WebDav is active and we will show WebDav links"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="MaximumFileSize"  default="20000000" description="The maximum size, in bytes, of files that users are allowed to upload.  Should not be set larger than the systemwide AOLServer parameter maxinput."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="ShowAdministerPermissionsLinkP"  default="1" description="Whether or not to show a link to administer permissions on the file storage object."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="StoreFilesInDatabaseP"  default="0" description="Flag to determine the storage type. A flag of 1 (true) will store the files in the database. If 0 (false) files are stored in the filesystem. ***This parameter should only be changed at package instance creation.***"/>
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.8 -r1.42.2.9
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	26 Jul 2004 23:57:01 -0000	1.42.2.8
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	29 Jul 2004 00:03:19 -0000	1.42.2.9
@@ -803,6 +803,9 @@
             item is not WebDAV enabled
 } {
 
+    if {  [ad_parameter "UseWebDavP"] == 0 } {
+	return "ho"
+    }  
     if {[empty_string_p $package_id]} {
 	set package_id [ad_conn package_id]
     }
Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.23.2.2 -r1.23.2.3
--- openacs-4/packages/file-storage/www/index.tcl	21 Jul 2004 22:37:18 -0000	1.23.2.2
+++ openacs-4/packages/file-storage/www/index.tcl	29 Jul 2004 00:03:19 -0000	1.23.2.3
@@ -101,8 +101,12 @@
     }
 }
 
-set webdav_url [fs::webdav_url -item_id $folder_id]
+set use_webdav_p  [ad_parameter "UseWebDavP"]
 
+if { $use_webdav_p == 1} { 
+    set webdav_url [fs::webdav_url -item_id $folder_id]
+}
+
 # FIXME make this a parameter!
 
 set allow_bulk_actions 1