Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl,v diff -u -r1.4.2.11 -r1.4.2.12 --- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 10 Apr 2004 00:34:33 -0000 1.4.2.11 +++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 14 Apr 2004 17:40:31 -0000 1.4.2.12 @@ -144,7 +144,16 @@ -party_id $user_id \ -privilege "create"] ] } - propfind - + propfind { + if {!$user_id} { + ns_returnunauthorized + } else { + set authorized_p [permission::permission_p \ + -object_id $item_id \ + -party_id $user_id \ + -privilege "read"] + } + } head - get { # default for GET PROPFIND @@ -635,6 +644,8 @@ foreach fragment [split [ad_conn url] "/"] { lappend encoded_uri [ns_urlencode $fragment] } + # MS Web Folders can't handle encoded . in filenames so decode it + regsub -all {%2e} $encoded_uri {.} encoded_uri set folder_uri "[ad_url][join $encoded_uri "/"]" if {![string match */ $folder_uri]} {