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.27 -r1.28
--- openacs-4/packages/file-storage/file-storage.info	16 Feb 2004 17:06:12 -0000	1.27
+++ openacs-4/packages/file-storage/file-storage.info	16 Feb 2004 19:07:56 -0000	1.28
@@ -7,14 +7,14 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="5.0.0b4" url="http://openacs.org/repository/download/apm/file-storage-5.0.0b4.apm">
+    <version name="5.1.0d" url="http://openacs.org/repository/download/apm/file-storage-5.1.0d.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Collaborative document storage</summary>
         <release-date>2003-11-10</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/plain">Provides a versioned document store with storage in the filesystem or database (depending on configuration).  Documents and folders can be permissioned and folders downloaded.</description>
 
-        <provides url="file-storage" version="5.0.0b4"/>
+        <provides url="file-storage" version="5.1.0d"/>
         <requires url="acs-content-repository" version="5.0.0b4"/>
         <requires url="acs-kernel" version="5.0.0b4"/>
         <requires url="oacs-dav" version="0.2d"/>
Index: openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	18 Jan 2004 14:19:42 -0000	1.19
+++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml	16 Feb 2004 19:07:56 -0000	1.20
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="file-storage" package_version="4.8" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="file-storage" package_version="5.1.0d" locale="en_US" charset="ISO-8859-1">
 
   <msg key="Action">Action</msg>
   <msg key="Actions">Actions:</msg>
@@ -33,6 +33,7 @@
   <msg key="file_page_file_title_label">Title: %title%</msg>
   <msg key="file_page_owner_label">Owner: %owner%</msg>
   <msg key="folder">folder</msg>
+  <msg key="Folder_available_via_WebDAV_at">Folder available via WebDAV at</msg>
   <msg key="folder_delete_page_title">Delete %folder_name%</msg>
   <msg key="Folder_ID">Folder ID</msg>
   <msg key="Folder_Name">Folder Name:</msg>
Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	15 Feb 2004 01:41:16 -0000	1.36
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	16 Feb 2004 19:07:57 -0000	1.37
@@ -108,7 +108,7 @@
 
     <fullquery name="fs_context_bar_list.title">
         <querytext>
-            select name from cr_items where item_id=:item_id
+            select file_storage__get_title(:item_id)
         </querytext>
     </fullquery>
 
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.40 -r1.41
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	16 Feb 2004 17:06:13 -0000	1.40
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	16 Feb 2004 19:07:57 -0000	1.41
@@ -705,3 +705,42 @@
 
     return $revision_id
 }
+
+ad_proc fs::webdav_url {
+    -item_id
+    {-root_folder_id ""}
+    {-package_id ""}
+} {
+    Provide URL for webdav access to file or folder
+
+    @param item_id folder_id or item_id of file-storage folder or file
+    @param root_folder_id root folder to resolve URL from
+    
+    @return fully qualified URL for WebDAV access or empty string if
+            item is not WebDAV enabled
+} {
+
+    if {[empty_string_p $package_id]} {
+	set package_id [ad_conn package_id]
+    }
+    
+    if {[empty_string_p $root_folder_id]} {
+	set root_folder_id [fs::get_root_folder -package_id $package_id]
+    }
+
+    if {[string equal "t" [oacs_dav::folder_enabled -folder_id $root_folder_id]]} {
+    
+	set url_stub [item::get_url -root_folder_id $root_folder_id $item_id]
+
+	set package_url [apm_package_url_from_id $package_id]
+
+	set webdav_prefix [oacs_dav::uri_prefix]
+
+	return "[ad_url]${webdav_prefix}${package_url}${url_stub}"
+
+    } else {
+
+	return ""
+	
+    }
+}
\ No newline at end of file
Index: openacs-4/packages/file-storage/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.adp,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/file-storage/www/index.adp	15 Feb 2004 01:41:17 -0000	1.24
+++ openacs-4/packages/file-storage/www/index.adp	16 Feb 2004 19:07:57 -0000	1.25
@@ -8,3 +8,7 @@
 
 <include src="folder-chunk" folder_id=@folder_id;noquote@ n_past_days=@n_past_days@>
 
+<if @webdav_url@ not nil>
+      <p>#file-storage.Folder_available_via_WebDAV_at# @webdav_url@</p>
+</if>
+      
\ No newline at end of file
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.22 -r1.23
--- openacs-4/packages/file-storage/www/index.tcl	15 Feb 2004 01:41:17 -0000	1.22
+++ openacs-4/packages/file-storage/www/index.tcl	16 Feb 2004 19:07:57 -0000	1.23
@@ -93,4 +93,6 @@
     }
 }
 
+set webdav_url [fs::webdav_url -item_id $folder_id]
+
 ad_return_template