Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	18 Feb 2003 20:55:28 -0000	1.11
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	17 May 2003 10:39:21 -0000	1.12
@@ -17,23 +17,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="fs_maybe_create_new_mime_type.select_mime_type">      
-        <querytext>
-	        select mime_type
-            from cr_mime_types
-        	where file_extension = :file_extension
-        </querytext>
-    </fullquery>
-
-    <fullquery name="fs_maybe_create_new_mime_type.insert_mime_type">      
-        <querytext>
-            insert into cr_mime_types
-            (mime_type, file_extension)
-            values
-            (:mime_type, :extension)
-        </querytext>
-    </fullquery>
-
     <fullquery name="fs::get_folder.select_folder">
         <querytext>
             select item_id
@@ -74,21 +57,15 @@
     <fullquery name="fs::get_folder_objects.select_folder_contents">
         <querytext>
 
-           select *
-           from (select cr_items.item_id as object_id,
-                   cr_items.name
-                 from cr_items
-                 where cr_items.parent_id = :folder_id
-                 union all
-                 select fs_simple_objects.object_id,
-                   fs_simple_objects.name
-                 from fs_simple_objects
-                 where fs_simple_objects.folder_id = :folder_id) contents
-           where exists (select 1
-                         from acs_object_party_privilege_map m
-                         where m.object_id = contents.object_id
-                           and m.party_id = :user_id
-                           and m.privilege = 'read')
+           select cr_items.item_id as object_id,
+             cr_items.name
+           from cr_items
+           where cr_items.parent_id = :folder_id
+            and exists (select 1
+                        from acs_object_party_privilege_map m
+                        where m.object_id = cr_items.item_id
+                          and m.party_id = :user_id
+                          and m.privilege = 'read')
 
         </querytext>
     </fullquery>
@@ -109,11 +86,11 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="fs::publish_simple_object_to_file_system.select_object_info">
+    <fullquery name="fs::publish_url_to_file_system.select_object_metadata">
         <querytext>
-            select fs_objects.*
-            from fs_objects
-            where fs_objects.object_id = :object_id
+            select fs_urls_full.*
+            from fs_urls_full
+            where fs_urls_full.object_id = :object_id
         </querytext>
     </fullquery>
 
@@ -132,14 +109,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="fs::publish_versioned_object_to_file_system.select_object_content">
-        <querytext>
-            select content
-            from cr_revisions
-            where revision_id = $live_revision
-        </querytext>
-    </fullquery>
-
     <fullquery name="fs::publish_versioned_object_to_file_system.select_file_name">
         <querytext>
             select filename