darior
committed
on 01 Jul 05
add regsub for escape $ to show url webdav
openacs-4/.../fs-portlet/www/fs-portlet.tcl (+2 -1)
88 88         # The name of the folder may contain message keys that need to be localized on the fly
89 89         set name [lang::util::localize $name]
90 90     }
91 91 }
92 92
93 93 # Enable Notifications
94 94
95 95 set folder_name [fs_get_folder_name $folder_id]
96 96 set notification_chunk [notification::display::request_widget \
97 97     -type fs_fs_notif \
98 98     -object_id $folder_id \
99 99     -pretty_name $folder_name \
100 100     -url [ad_conn url]?folder_id=$folder_id \
101 101     ]
102 102
103 103 if [exists_and_not_null file_storage_package_id] {
104 104     set use_webdav_p  [parameter::get -package_id $file_storage_package_id -parameter "UseWebDavP"]
105 105    
106 106     if { $use_webdav_p == 1} {
107 107         set webdav_url [fs::webdav_url -item_id $folder_id -package_id $file_storage_package_id]
  108         regsub -all {/\$} $webdav_url {/\\$} webdav_url
108 109     }
109 110 }
110 111
111 112
112 113 ad_return_template