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.6 -r1.7
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	20 Apr 2004 21:12:37 -0000	1.6
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql	4 Jun 2006 00:45:23 -0000	1.7
@@ -4,7 +4,7 @@
 <fullquery name="cr_write_content.get_revision_info">
       <querytext>
           select i.storage_type, i.storage_area_key, r.mime_type, i.item_id,
-	         r.content_length
+                 r.content_length
           from cr_items i, cr_revisions r
           where r.revision_id = :revision_id and i.item_id = r.item_id
       </querytext>
@@ -21,17 +21,17 @@
 <fullquery name="cr_import_content.get_content_type">
       <querytext>
             select content_type
-	    from cr_items
+            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) 
-    	    select :mime_type
-    	    from dual
-    	    where not exists (select 1 from cr_mime_types where mime_type = :mime_type)
+            select :mime_type
+            from dual
+            where not exists (select 1 from cr_mime_types where mime_type = :mime_type)
       </querytext>
 </fullquery>
 
@@ -43,4 +43,22 @@
       </querytext>
 </fullquery>
 
+<fullquery name="cr_import_content.is_registered">
+      <querytext>
+          select 1
+          from cr_content_mime_type_map
+          where mime_type = :mime_type
+          and content_type = 'content_revision'
+      </querytext>
+</fullquery>
+
+<fullquery name="cr_import_content.image_type_p">
+    <querytext>
+        select 1
+        from cr_content_mime_type_map
+        where mime_type = :mime_type
+        and content_type = 'image'
+    </querytext>
+</fullquery>
+
 </queryset>