Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql,v diff -u -r1.13.20.1 -r1.13.20.2 --- openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql 3 Jan 2020 10:43:36 -0000 1.13.20.1 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql 3 Jan 2020 10:46:57 -0000 1.13.20.2 @@ -95,19 +95,19 @@ - + - + update cr_revisions set mime_type = :mime_type, content = empty_blob() where revision_id = :revision_id returning content into :1 - + - + update cr_revisions Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql,v diff -u -r1.11.2.2 -r1.11.2.3 --- openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql 3 Jan 2020 10:43:37 -0000 1.11.2.2 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql 3 Jan 2020 10:46:57 -0000 1.11.2.3 @@ -102,24 +102,24 @@ /* creation_date => */ current_timestamp, /* creation_user => */ :creation_user, /* creation_ip => */ :creation_ip, - /* content_length => */ null, + /* content_length => */ null, /* package_id => */ :package_id ); - - + + update cr_revisions set mime_type = :mime_type, lob = [set __lob_id [db_string get_lob_id {select empty_lob()}]] where revision_id = :revision_id - + - - + + update cr_revisions