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.90.2.20 -r1.90.2.21
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	12 Apr 2021 08:36:10 -0000	1.90.2.20
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	19 Apr 2021 13:01:13 -0000	1.90.2.21
@@ -1213,6 +1213,17 @@
     return $parent_id
 }
 
+ad_proc -private fs::webdav_p {} {
+    Returns if webDAV is enabled.
+
+    @return boolean
+} {
+    return [expr {
+                  [parameter::get -parameter "UseWebDavP" -default 0] &&
+                  [apm_package_installed_p oacs-dav]
+              }]
+}
+
 ad_proc fs::webdav_url {
     -item_id:required
     {-root_folder_id ""}
@@ -1227,7 +1238,7 @@
             item is not WebDAV enabled
 } {
 
-    if {  [parameter::get -parameter "UseWebDavP"] == 0 } {
+    if {![fs::webdav_p]} {
         return "ho"
     }
     if {$package_id eq ""} {