Index: openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl,v
diff -u -N -r1.2.2.10 -r1.2.2.11
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	25 Apr 2004 14:08:25 -0000	1.2.2.10
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	23 Jul 2004 13:30:14 -0000	1.2.2.11
@@ -1501,7 +1501,7 @@
 }
 
 
-proc tdav::apply_filters {{uri "/*"} {options "OPTIONS GET HEAD POST DELETE TRACE PROPFIND PROPPATCH COPY MOVE MKCOL LOCK UNLOCK"}} {
+proc tdav::apply_filters {{uri "/*"} {options "OPTIONS GET HEAD POST DELETE TRACE PROPFIND PROPPATCH COPY MOVE MKCOL LOCK UNLOCK"} {enable_filesystem "f"}} {
 
     # Verify that the options are valid options. Webdav requires
     # support for a minimum set of options. And offers support for a
@@ -1541,13 +1541,18 @@
     # Register procedures for selected tDAV options. Do not register a
     # proc for OPTIONS, GET, POST or HEAD.
 
-    foreach option $options {
-	if {[lsearch -exact [list OPTIONS GET POST HEAD] $option] < 0} {
-	    ns_log debug "tDAV registering proc for $uri on $option"
-	    ns_register_proc [string toupper $option] "${uri}" tdav::webdav_[string tolower $option]
+    if {[string equal "true" $enable_filesystem]} {    
+	
+	foreach option $options {
+	    if {[lsearch -exact [list OPTIONS GET POST HEAD] $option] < 0} {
+		ns_log debug "tDAV registering proc for $uri on $option"
+		ns_register_proc [string toupper $option] "${uri}" tdav::webdav_[string tolower $option]
+	    }
 	}
+	ns_log notice "tDAV: Registered procedures on $uri"
+    } else {
+	ns_log notice "tDAV: Filesystem access by WebDAV disabled"
     }
-    ns_log notice "tDAV: Registered procedures on $uri"
     # Store the tDAV properties in an nsv set so that the registerd
     # filters and procedures don't have to read the config file
     # anymore.