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.6 -r1.7
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	6 Nov 2003 15:33:20 -0000	1.6
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	9 Feb 2004 14:48:44 -0000	1.7
@@ -6,15 +6,15 @@
 		<querytext>
 			insert into ${table_name}i
                     (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, text, mime_type $addtnl_properties)
-            values (:revision_id, :content_type, :creation_user_id, now(), :creation_ip, :title, :description, :item_id, :content, :mime_type $addtnl_values)
+            values (:revision_id, :content_type, :creation_user, current_timestamp, :creation_ip, :title, :description, :item_id, :content, :mime_type $addtnl_values)
 		</querytext>
 	</fullquery>
 
 	<fullquery name="bcms::revision::upload_file_revision.insert_revision">
 		<querytext>
 			insert into ${table_name}i
                     (object_type, creation_user, creation_date, creation_ip, title, description, item_id, revision_id, text, mime_type $addtnl_properties)
-            values (:content_type, :creation_user_id, now(), :creation_ip, :title, :description, :item_id, :revision_id, :content, :mime_type $addtnl_values)
+            values (:content_type, :creation_user, now(), :creation_ip, :title, :description, :item_id, :revision_id, :content, :mime_type $addtnl_values)
 		</querytext>
 	</fullquery>
 
@@ -37,7 +37,7 @@
 	<fullquery name="bcms::revision::get_revision.get_1revision">
 		<querytext>
 			select i.item_id, i.name, i.parent_id, r.title, r.description, r.content, 
-                i.content_type, i.publish_status, i.live_revision, i.latest_revision, i.storage_type $addtnl_select
+                i.content_type, i.publish_status, i.live_revision, i.latest_revision, i.storage_type, r.mime_type, r.publish_date $addtnl_select
 		    	from cr_revisions r, cr_items i $addtnl_from
 			where r.revision_id = :revision_id
                 and i.item_id = r.item_id $addtnl_where