Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	4 Oct 2003 08:53:05 -0000	1.3
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	5 Oct 2003 12:28:03 -0000	1.4
@@ -20,9 +20,9 @@
 
     <fullquery name="bcms::revision::upload_file_revision.check_mime">
         <querytext>
- 	        select mime_type
+ 	        select 1
             from cr_mime_types
-        	where file_extension = :file_extension
+        	where mime_type = :mime_type
         </querytext>
     </fullquery>
 
@@ -46,10 +46,10 @@
 	<fullquery name="bcms::revision::get_revision.get_1revision">
 		<querytext>
 			select i.item_id, i.name, r.title, r.description, r.content, 
-                i.content_type, i.publish_status, i.live_revision, i.latest_revision, i.storage_type
-		    	from cr_revisions r, cr_items i
+                i.content_type, i.publish_status, i.live_revision, i.latest_revision, i.storage_type $addtnl_select
+		    	from cr_revisions r, cr_items i $addtnl_from
 			where r.revision_id = :revision_id
-                and i.item_id = r.item_id
+                and i.item_id = r.item_id $addtnl_where
 		</querytext>
 	</fullquery>