Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	31 Mar 2004 02:35:32 -0000	1.3.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	7 Apr 2004 01:16:49 -0000	1.3.2.3
@@ -30,7 +30,7 @@
     set user_id [oacs_dav::conn user_id]
     set item_id [oacs_dav::conn item_id]
     set root_folder_id [oacs_dav::conn folder_id]
-    set uri [oacs_dav::conn url]
+    set uri [oacs_dav::conn uri]
     
     set tmp_filename [oacs_dav::conn tmpfile]
     set tmp_size [file size $tmp_filename]
@@ -120,6 +120,18 @@
     return [oacs_dav::impl::content_revision::move]
 }
 
+ad_proc fs::impl::fs_object::lock {} {
+    LOCK method
+} {
+    return [oacs_dav::impl::content_revision::lock]
+}
+
+ad_proc fs::impl::fs_object::unlock {} {
+    UNLOCK method
+} {
+    return [oacs_dav::impl::content_revision::unlock]
+}
+
 namespace eval fs::impl::dav_put_type {}
 
 ad_proc fs::impl::dav_put_type::get_type {} {