Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.xql,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	15 Nov 2001 01:47:13 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	3 May 2003 23:51:16 -0000	1.2.4.1
@@ -1,33 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="cr_revision_upload.get_revision_id">      
-      <querytext>
-
-        select content_revision__new(:title, 
-                                     null,
-                                     now(),
-                                     'text/plain',
-                                     ' ',
-                                     :item_id
-                                     )
-
-      </querytext>
-</fullquery>
-
-<fullquery name="cr_revision_upload.dml_revision_from_file">      
-      <querytext>
-
-                         update 
-                            cr_revisions 
-                          set
-                            content = '[cr_create_content_file $item_id $revision_id $path]'
-                          where
-                            revision_id = :revision_id
-
-      </querytext>
-</fullquery>
-
 <fullquery name="cr_write_content.get_revision_info">
       <querytext>
           select i.storage_type, i.storage_area_key, r.mime_type, i.item_id
@@ -53,6 +26,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="cr_import_content.set_file_content">
+      <querytext>
+          update cr_revisions
+          set content = :filename,
+              mime_type = :mime_type,
+              content_length = :tmp_size
+          where revision_id = :revision_id
+      </querytext>
+</fullquery>
+
 <fullquery name="cr_registered_type_for_mime_type.registered_type_for_mime_type">
       <querytext>
           select content_type