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.4 -r1.5.2.1.4.5 --- openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl 22 Dec 2004 17:28:35 -0000 1.5.2.1.4.4 +++ openacs-4/packages/fs-portlet/www/fs-contents-portlet.tcl 22 Dec 2004 17:33:14 -0000 1.5.2.1.4.5 @@ -73,10 +73,12 @@ -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] +if [exists_and_not_null file_storage_package_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 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.3 -r1.17.6.4 --- openacs-4/packages/fs-portlet/www/fs-portlet.tcl 22 Dec 2004 17:28:35 -0000 1.17.6.3 +++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl 22 Dec 2004 17:33:14 -0000 1.17.6.4 @@ -100,12 +100,13 @@ -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] +if [exists_and_not_null file_storage_package_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