Index: openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql 7 Aug 2017 23:47:58 -0000 1.4 +++ openacs-4/packages/acs-subsite/tcl/email-image-procs-oracle.xql 2 Jul 2024 07:12:20 -0000 1.4.2.1 @@ -2,32 +2,6 @@ oracle8.1.6 - - - update cr_revisions - set content = empty_blob() - where revision_id = :revision_id - returning content into :1 - - - - - - update cr_revisions - set content_length = dbms_lob.getlength(content) - where revision_id = :revision_id - - - - - - update cr_revisions - set content = empty_blob() - where revision_id = :revision_id - returning content into :1 - - - begin Index: openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql 7 Aug 2017 23:47:58 -0000 1.3 +++ openacs-4/packages/acs-subsite/tcl/email-image-procs-postgresql.xql 2 Jul 2024 07:12:20 -0000 1.3.2.1 @@ -2,41 +2,6 @@ postgresql7.1 - - - 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 - set content_length = lob_length(lob) - where revision_id = :revision_id - - - - - - - update cr_revisions - set content_length = lob_length(lob) - where revision_id = :revision_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 - - - select acs_rel__new (