Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v diff -u -r1.24 -r1.24.2.1 --- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 17 Dec 2008 19:35:27 -0000 1.24 +++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 3 Jun 2009 14:43:34 -0000 1.24.2.1 @@ -196,13 +196,11 @@ switch $storage_type { file { if {$tmp_filename eq ""} { - set tmp_filename [ns_mktemp /tmp/XXXXXX] - set fd [open $tmp_filename w] - puts $fd $content - close $fd - } - set tmp_size [file size $tmp_filename] - set filename [cr_create_content_file $item_id $revision_id $tmp_filename] + set filename [cr_create_content_file_from_string $item_id $revision_id $content] + } else { + set filename [cr_create_content_file $item_id $revision_id $tmp_filename] + } + set tmp_size [file size [cr_fs_path]$filename] db_dml set_file_content "" } lob {