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.37.2.7 -r1.37.2.8
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	1 Apr 2022 13:57:48 -0000	1.37.2.7
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	9 Jan 2024 13:06:17 -0000	1.37.2.8
@@ -108,12 +108,19 @@
     -content
     -content_length
     -storage_area_key
-    -filename
 } {
-    if {![info exists filename]} {
-        set path [cr_fs_path $storage_area_key]
+    set path [cr_fs_path $storage_area_key]
+    if {[db_type] eq "oracle"} {
+        #
+        # CR datamodel for Oracle differs from the one in Postgres
+        # concerning file revisions. For Oracle, an additional column
+        # cr_revisions.filename stores the actual filename.
+        #
+        set filename [db_string write_file_content {}]
+    } else {
         set filename $path$content
     }
+
     if {$filename eq ""} {
         error "No content for the revision $revision_id.\
                             This seems to be an error which occurred during the upload of the file"