Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql	22 Apr 2005 08:29:49 -0000	1.13
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql	3 Sep 2024 15:37:31 -0000	1.14
@@ -2,53 +2,22 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="cr_write_content.get_item_info">
+<fullquery name="cr_write_content-file.write_file_content">
       <querytext>
-          select r.mime_type, i.storage_type, i.storage_area_key,
-            r.revision_id, r.content_length
-            from cr_revisions r, cr_items i
-          where i.item_id = r.item_id and
-              r.revision_id = content_item.get_live_revision(:item_id)
-      </querytext>
-</fullquery>
-
-<fullquery name="cr_write_content.write_file_content">
-      <querytext>
           select :path || filename
           from cr_revisions
           where revision_id = :revision_id
       </querytext>
 </fullquery>
 
-<fullquery name="cr_write_content.write_lob_content">
+<fullquery name="cr_write_content-lob.write_lob_content">
       <querytext>
           select content
           from cr_revisions
-          where revision_id = $revision_id
+          where revision_id = :revision_id
       </querytext>
 </fullquery>
 
-
-<fullquery name="cr_import_content.mime_type_register">
-      <querytext>
-          begin
-            content_type.register_mime_type('content_revision', :mime_type);
-          end;
-      </querytext>
-</fullquery>
-
-<fullquery name="cr_import_content.image_subclass">
-      <querytext>
-         select content_item.is_subclass(:image_type, 'image') from dual
-      </querytext>
-</fullquery>
-
-<fullquery name="cr_import_content.content_revision_subclass">
-      <querytext>
-         select content_item.is_subclass(:other_type, 'content_revision') from dual
-      </querytext>
-</fullquery>
-
 <fullquery name="cr_import_content.image_new">
       <querytext>
           begin
@@ -126,19 +95,19 @@
       </querytext>
 </fullquery>
 
-<fullquery name="cr_import_content.set_lob_content">      
+<fullquery name="cr_import_content.set_lob_content">
       <querytext>
-      
+
         update cr_revisions
         set mime_type = :mime_type,
         content = empty_blob()
         where revision_id = :revision_id
         returning content into :1
-	   
+
       </querytext>
 </fullquery>
 
-<fullquery name="cr_import_content.set_lob_size">      
+<fullquery name="cr_import_content.set_lob_size">
       <querytext>
 
          update cr_revisions
@@ -154,15 +123,5 @@
          end;
       </querytext>
 </fullquery>
- 
-<fullquery name="cr_import_content.set_file_content">
-      <querytext>
-          update cr_revisions
-          set filename = :filename,
-              mime_type = :mime_type,
-              content_length = :tmp_size
-          where revision_id = :revision_id
-      </querytext>
-</fullquery>
 
 </queryset>