Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.7.2.7 -r1.7.2.8
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	15 Apr 2005 17:00:42 -0000	1.7.2.7
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	21 Apr 2005 10:11:01 -0000	1.7.2.8
@@ -71,18 +71,14 @@
 
     @see content::symlink::new content::extlink::new content::folder::new
 } {
-    if {![info exists creation_user]} {
+    if {[empty_string_p $creation_user]} {
 	set creation_user [ad_conn user_id]
     }
 
-    if {![info exists creation_ip]} {
+    if {[empty_string_p $creation_ip]} {
 	set creation_ip [ad_conn peeraddr]
     }
 
-    if {![exists_and_not_null content_type]} {
-	set content_type [::content::item::content_type -item_id $item_id]
-    }
-
     set var_list [list]
     lappend var_list \
         [list name $name] \
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.9 -r1.12.2.10
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	15 Apr 2005 17:13:34 -0000	1.12.2.9
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	21 Apr 2005 10:11:01 -0000	1.12.2.10
@@ -254,8 +254,19 @@
                 db_dml set_file_content ""
             }
             lob {
-                db_dml set_lob_content "" -blob_files [list $tmp_filename]
+                # 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_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
             }
         }