Index: openacs-4/packages/file-storage/file-storage.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/file-storage.info,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/file-storage/file-storage.info	17 Dec 2003 00:56:22 -0000	1.26
+++ openacs-4/packages/file-storage/file-storage.info	16 Feb 2004 17:06:12 -0000	1.27
@@ -17,7 +17,7 @@
         <provides url="file-storage" version="5.0.0b4"/>
         <requires url="acs-content-repository" version="5.0.0b4"/>
         <requires url="acs-kernel" version="5.0.0b4"/>
-
+        <requires url="oacs-dav" version="0.2d"/>
         <callbacks>
             <callback type="after-mount"  proc="fs::after_mount"/>
         </callbacks>
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	15 Feb 2004 01:41:16 -0000	1.39
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	16 Feb 2004 17:06:13 -0000	1.40
@@ -206,7 +206,9 @@
     
     set label $sn(instance_name)
     set name "file-storage_${package_id}"
-    return [db_exec_plsql new_root_folder {}]
+    set folder_id [db_exec_plsql new_root_folder {}]
+    oacs_dav::register_folder -enabled_p "t" $folder_id $sn(node_id)
+    
 }
 
 ad_proc -public fs::get_root_folder {