Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	29 Jun 2004 10:18:24 -0000	1.2
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	13 Jan 2005 13:58:12 -0000	1.3
@@ -1,5 +1,3 @@
-# 
-
 ad_library {
     
     Sets up WebDAV support service contracts
@@ -18,6 +16,7 @@
 } {
     db_transaction {
 	register_implementation
+	fs::rss::create_rss_gen_subscr_impl
     }
 }
 
@@ -35,8 +34,11 @@
     add file-storage repository service contract
     implementation
 } {
-  
-   set spec {
+    ns_log Notice "registering fs dav implementations."
+
+    ### dav contract
+
+    set spec {
         name "file_storage_object"
         aliases {
             get fs::impl::fs_object::get
@@ -57,20 +59,31 @@
     
     acs_sc::impl::new_from_spec -spec $spec
 
-   set spec {
-       name "file-storage"
-       aliases {
-	   get_type fs::impl::dav_put_type::get_type
-       }
-       contract_name {dav_put_type}
-       owner "file-storage"
-   }
+    ### dav_put_type
 
-   acs_sc::impl::new_from_spec -spec $spec
-   
-}
+    set spec {
+	name "file-storage"
+	aliases {
+	    get_type fs::impl::dav_put_type::get_type
+	}
+	contract_name {dav_put_type}
+	owner "file-storage"
+    }
 
+    acs_sc::impl::new_from_spec -spec $spec
 
+    set spec {
+	name "file-storage"
+	aliases {
+	    get_type fs::impl::dav_mkcol_type::get_type
+	}
+	contract_name {dav_mkcol_type}
+	owner "file-storage"
+    }
+
+    acs_sc::impl::new_from_spec -spec $spec
+}
+
 ad_proc -private fs::install::unregister_implementation {
 } {
     remove file-storage service contract implementation
@@ -94,7 +107,20 @@
 		# by content::init so it can be recreated
 		file delete [file join [acs_root_dir] templates "file-storage-default.tcl"]
 	    }
-
+	    5.1.0a10 5.1.0a11 {
+		set spec {
+		    name "file-storage"
+		    aliases {
+			get_type fs::impl::dav_mkcol_type::get_type
+		    }
+		    contract_name {dav_mkcol_type}
+		    owner "file-storage"
+		}
+		acs_sc::impl::new_from_spec -spec $spec
+	    }
+            5.1.0a11 5.1.0a12 {
+		fs::rss::create_rss_gen_subscr_impl
+	    }
 	}
 
-}
\ No newline at end of file
+}