Index: openacs-4/packages/file-storage/tcl/file-storage-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-init.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/tcl/file-storage-init.tcl	5 Nov 2002 17:19:58 -0000	1.5
+++ openacs-4/packages/file-storage/tcl/file-storage-init.tcl	15 Dec 2003 11:21:04 -0000	1.6
@@ -7,6 +7,8 @@
     @cvs-id $Id$
 }
 
+# unused after mount callback handles this now
+
 # JS: proc to execute every time a new package instance is created.
 # This avoids the ugly hack in the original version that checks for
 # the existence of a root folder every time fs_get_root_folder is called
@@ -20,13 +22,13 @@
 # "post_instantiation".  The parameter passed is always
 # package_id. The name of the proc is thus:
 
-ad_proc file_storage_post_instantiation {
-    package_id
-} {
-    Post package instantiation procedure to insert a package_id, 
-    folder_id pair in fs_root_folders
-} {
-    # We should probably just define this function here, and remove from the fs namespace
-    return [fs::new_root_folder -package_id $package_id]
-}
+# ad_proc file_storage_post_instantiation {
+#     package_id
+# } {
+#     Post package instantiation procedure to insert a package_id, 
+#     folder_id pair in fs_root_folders
+# } {
+#     # We should probably just define this function here, and remove from the fs namespace
+#     return [fs::new_root_folder -package_id $package_id]
+# }