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.2 -r1.3
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	27 Aug 2003 17:23:27 -0000	1.2
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.xql	4 Oct 2003 08:53:05 -0000	1.3
@@ -5,16 +5,16 @@
 	<fullquery name="bcms::revision::add_revision.insert_revision">
 		<querytext>
 			insert into ${table_name}i
-                    (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, text, mime_type)
-            values (:revision_id, :content_type, :creation_user_id, now(), :creation_ip, :title, :description, :item_id, :content, :mime_type)
+                    (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)
 		</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)
-            values (:content_type, :creation_user_id, now(), :creation_ip, :title, :description, :item_id, :revision_id, :content, :mime_type)
+                    (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)
 		</querytext>
 	</fullquery>