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]