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 {} {