Index: openacs-4/contrib/packages/bcms-ui-base/resources/file-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms-ui-base/resources/file-form.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/bcms-ui-base/resources/file-form.tcl	4 Oct 2003 08:44:51 -0000	1.1
+++ openacs-4/contrib/packages/bcms-ui-base/resources/file-form.tcl	9 Oct 2003 09:58:21 -0000	1.2
@@ -74,8 +74,13 @@
 
 } -edit_data {
 
-    bcms::revision::set_revision -revision_id $revision_id \
-       -title $title -description $description
+    if {[exists_and_not_null upload_file]} {
+        bcms::revision::set_revision -revision_id $revision_id \
+            -title $title -description $description -upload_file $upload_file
+    } else {
+        bcms::revision::set_revision -revision_id $revision_id \
+            -title $title -description $description
+    }
     if {[info exists file_name]} {
         bcms::item::set_item -item_id $file_id -name $file_name
         # we have renamed the file, we need to redirect on the new name