Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs-postgresql.xql	27 Aug 2003 17:23:27 -0000	1.3
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs-postgresql.xql	9 Oct 2003 09:57:17 -0000	1.4
@@ -32,7 +32,7 @@
 
 	<fullquery name="bcms::revision::list_revisions.get_revisions">
 		<querytext>
-			select x.revision_id, x.title, x.description, p.first_names, p.last_name, 
+			select x.revision_id, x.name, x.title, x.description, p.first_names, p.last_name, 
 				to_char(x.creation_date,'HH:MI AM MM/DD/YYYY') as creation_date, l.live_revision_id
 				from ${table_name}x x, persons p, (select content_item__get_live_revision(:item_id) as live_revision_id) l
 			where x.creation_user = p.person_id
Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	5 Oct 2003 12:28:03 -0000	1.6
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	9 Oct 2003 09:57:17 -0000	1.7
@@ -239,10 +239,11 @@
             set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
             set tmp_filename [cr_create_content_file $item_id $revision_id $upload_tmpfile]
             set tmp_filesize [cr_file_size $tmp_filename]	
-            set content $tmp_filename
             if {![info exists content]} {
+                # we to make sure that we do not double put the content field
                 lappend update_list "content = :content"
             }
+            set content $tmp_filename
             lappend update_list "content_length = :tmp_filesize"
             if {![info exists mime_type]} {
                 set mime_type [template::util::file::get_property mime_type $upload_file]