@notification_chunk;noquote@
+
+ #file-storage.Folder_available_via_WebDAV_at#
+
Index: openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl,v
diff -u -r1.5.2.1.4.3 -r1.5.2.1.4.4
--- openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl 29 Aug 2004 23:57:48 -0000 1.5.2.1.4.3
+++ openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl 22 Dec 2004 17:28:35 -0000 1.5.2.1.4.4
@@ -57,7 +57,6 @@
set root_folder_id [fs::get_root_folder -package_id $file_storage_package_id]
set folder_id [lindex $list_of_folder_ids 0]
-ns_log Notice "Huh? folder_id: $folder_id root_folder_id: $root_folder_id"
set scope_fs_url "/packages/file-storage/www/folder-chunk"
set n_past_days ""
set url [site_node_object_map::get_url -object_id $folder_id]
@@ -74,4 +73,10 @@
-url [ad_conn url]?folder_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]
+}
+
ad_return_template
Index: openacs-4/packages/fs-portlet/www/fs-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.adp,v
diff -u -r1.26.2.1.4.2 -r1.26.2.1.4.3
--- openacs-4/packages/fs-portlet/www/fs-portlet.adp 29 Aug 2004 23:57:48 -0000 1.26.2.1.4.2
+++ openacs-4/packages/fs-portlet/www/fs-portlet.adp 22 Dec 2004 17:28:35 -0000 1.26.2.1.4.3
@@ -117,4 +117,7 @@
@notification_chunk;noquote@
+
+ #file-storage.Folder_available_via_WebDAV_at#
+
Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.17.6.2 -r1.17.6.3
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl 29 Aug 2004 23:57:48 -0000 1.17.6.2
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl 22 Dec 2004 17:28:35 -0000 1.17.6.3
@@ -50,6 +50,12 @@
set user_root_folder_present_p 1
} else {
set folder_id [lindex $list_of_folder_ids 0]
+ set file_storage_node_id [site_node::get_node_id_from_object_id \
+ -object_id [ad_conn package_id]]
+ set file_storage_package_id [site_node::get_children \
+ -package_key file-storage \
+ -node_id $file_storage_node_id \
+ -element package_id]
}
set url [site_node_object_map::get_url -object_id $folder_id]
@@ -94,4 +100,12 @@
-url [ad_conn url]?folder_id=$folder_id \
]
+set use_webdav_p [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
+
+if { $use_webdav_p == 1} {
+ set webdav_url [fs::webdav_url -item_id $folder_id -package_id $file_storage_package_id]
+}
+
+
+
ad_return_template