Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.xql	31 May 2006 13:42:30 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.xql	7 Aug 2017 23:47:47 -0000	1.3
@@ -11,7 +11,13 @@
 
   <fullquery name="content::revision::new.get_storage_type">
     <querytext>
-	select storage_type from cr_items where item_id=:item_id
+      select storage_type from cr_items where item_id=:item_id
     </querytext>
   </fullquery>
+
+  <fullquery name="content::revision::new.mime_type_registered_p">
+    <querytext>
+      select exists(select 1 from cr_mime_types where mime_type = :mime_type)
+    </querytext>
+  </fullquery>
 </queryset>