Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v diff -u -r1.12.2.8 -r1.12.2.9 --- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 15 Apr 2005 17:00:42 -0000 1.12.2.8 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 15 Apr 2005 17:13:34 -0000 1.12.2.9 @@ -254,19 +254,8 @@ db_dml set_file_content "" } lob { - # mmagerl: rename file, because Oracle cannot handle UTF chararacters - set tmp_newname [uni_procs::masquerade_name -name $tmp_filename -masqslash "f"] - ns_log Debug "mmagerl: Renaming $tmp_filename to $tmp_newname" - if {![string eq $tmp_filename $tmp_newname]} { - file rename $tmp_filename $tmp_newname - } - db_dml set_lob_content "" -blob_files [list $tmp_newname] + db_dml set_lob_content "" -blob_files [list $tmp_filename] db_dml set_lob_size "" - ns_log Debug "mmagerl: Chaning $tmp_newname back to $tmp_filename" - if {![string eq $tmp_filename $tmp_newname]} { - file rename $tmp_newname $tmp_filename - } - # mmagerl: end } }