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