Index: openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/Attic/file-storage-dav-install-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	21 Apr 2004 12:02:46 -0000	1.5
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	21 Apr 2004 12:22:40 -0000	1.6
@@ -41,15 +41,15 @@
         aliases {
             get fs::impl::fs_object::get
             head fs::impl::fs_object::head
-            lock fs::impl::fs_object::lock
-            unlock fs::impl::fs_object::unlock
             put fs::impl::fs_object::put
 	    propfind fs::impl::fs_object::propfind
 	    delete fs::impl::fs_object::delete
 	    mkcol fs::impl::fs_object::mkcol
 	    proppatch fs::impl::fs_object::proppatch
 	    copy fs::impl::fs_object::copy
 	    move fs::impl::fs_object::move
+            lock fs::impl::fs_object::lock
+            unlock fs::impl::fs_object::unlock
         }
 	contract_name {dav}
 	owner "file-storage"
@@ -88,7 +88,7 @@
 	-from_version_name $from_version_name \
 	-to_version_name $to_version_name \
 	-spec {
-	    4.6.2 4.6.4 {
+	    4.6.2 5.1.0 {
 		fs::install::package_install
 	    }
 
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.5 -r1.6
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	21 Apr 2004 12:02:46 -0000	1.5
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	21 Apr 2004 12:22:40 -0000	1.6
@@ -24,25 +24,13 @@
     return [oacs_dav::impl::content_revision::head]
 }
 
-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]
-}
-
 ad_proc fs::impl::fs_object::put {} {
     PUT method
 } {
     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]
@@ -132,6 +120,19 @@
     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 {} {