Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/cms/tcl/form-procs.tcl	30 Aug 2001 01:46:05 -0000	1.15
+++ openacs-4/packages/cms/tcl/form-procs.tcl	2 Sep 2001 12:26:05 -0000	1.16
@@ -905,8 +905,8 @@
     if {[string equal $storage_type file]} {
         db_dml upload_file_revision "
                              update cr_revisions 
-                             set content = '[set file_path [cr_create_content_file $item_id $revision_id $tmpfile]]',
-                             content_length = [cr_file_size $file_path]
+                             set filename = '[cr_create_content_file $item_id $revision_id $tmpfile]',
+                             content_length = [file size $tmpfile]
                              where revision_id = :revision_id"
     } elseif {[string equal $storage_type text]} {
         # upload the file into the revision content
@@ -2011,22 +2011,22 @@
     if {[string equal $storage_type file]} {
         db_dml upload_file_revision "
                              update cr_revisions 
-                             set content = '[set file_path [cr_create_content_file $item_id $revision_id $tmpfile]]',
-                             content_length = [cr_file_size $file_path]
+                             set filename = '[cr_create_content_file $item_id $revision_id $tmpfile]',
+                             content_length = [file size $tmpfile]
                              where revision_id = :revision_id"
     } elseif {[string equal $storage_type text]} {
         # upload the file into the revision content
         db_dml upload_text_revision "update cr_revisions 
              set content = empty_blob(),
-             content_length = '[file size $tmpfile]' where 
+             content_length = [file size $tmpfile] where 
              revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
 
     } else {
         # upload the file into the revision content
         db_dml upload_revision "update cr_revisions 
              set content = empty_blob(),
-             content_length = '[file size $tmpfile]' 
+             content_length = [file size $tmpfile]
              where revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
     }