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.35 -r1.36
--- openacs-4/packages/file-storage/www/index.tcl	16 Jul 2018 07:44:11 -0000	1.35
+++ openacs-4/packages/file-storage/www/index.tcl	3 Sep 2024 15:37:38 -0000	1.36
@@ -102,11 +102,11 @@
     set up_name [lang::util::localize $up_name]
 }
 
-set use_webdav_p  [parameter::get -parameter "UseWebDavP"]
+set use_webdav_p  [fs::webdav_p]
 
 if { $use_webdav_p == 1} { 
     set webdav_url [fs::webdav_url -item_id $folder_id]
-    regsub -all {/\$} $webdav_url {/\\$} webdav_url
+    regsub -all -- {/\$} $webdav_url {/\\$} webdav_url
 }
 
 # FIXME make this a parameter!