Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/revision-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	18 Jun 2003 13:43:16 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	20 Apr 2004 21:12:37 -0000	1.6
@@ -3,7 +3,8 @@
 
 <fullquery name="cr_write_content.get_revision_info">
       <querytext>
-          select i.storage_type, i.storage_area_key, r.mime_type, i.item_id
+          select i.storage_type, i.storage_area_key, r.mime_type, i.item_id,
+	         r.content_length
           from cr_items i, cr_revisions r
           where r.revision_id = :revision_id and i.item_id = r.item_id
       </querytext>
@@ -17,6 +18,14 @@
       </querytext>
 </fullquery>
 
+<fullquery name="cr_import_content.get_content_type">
+      <querytext>
+            select content_type
+	    from cr_items
+            where item_id = :item_id
+      </querytext>
+</fullquery>
+
 <fullquery name="cr_import_content.mime_type_insert">
       <querytext>
             insert into cr_mime_types (mime_type)