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.22 -r1.4.2.23 --- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 30 Nov 2004 19:46:52 -0000 1.4.2.22 +++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl 1 Feb 2005 02:12:22 -0000 1.4.2.23 @@ -158,10 +158,14 @@ -object_id $item_id \ -party_id $user_id \ -privilege "read"] \ - && [permission::permission_p \ + && ([permission::permission_p \ -object_id [oacs_dav::conn dest_parent_id ] \ -party_id $user_id \ - -privilege "create"] ] + -privilege "create"] \ + || [permission::perission_p \ + -object_id [oacs_dav::conn dest_parent_id ] \ + -party_id $user_id \ + -privilege "write"])] } propfind { if {!$user_id} { @@ -964,7 +968,7 @@ set response [list 500] ns_log error "oacs_dav::impl::content_revision::put: $errmsg" } - + file delete $tmp_filename # at least we need to return the http_status return $response