Index: openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql 11 Dec 2003 21:39:53 -0000 1.8 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql 16 Nov 2017 13:05:50 -0000 1.9 @@ -2,31 +2,6 @@ oracle8.1.6 - - - update lang_messages - set [join $set_clauses ", "] - where locale = :locale - and message_key = :message_key - and package_key = :package_key - returning message into :1 - - - - - - insert into lang_messages ([join $col_clauses ", "]) - values ([join $val_clauses ", "]) - returning message into :1 - - - - - - sysdate - - - empty_clob() @@ -43,10 +18,4 @@ - - - sync_time = sysdate - - - Index: openacs-4/packages/acs-lang/tcl/lang-message-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs-postgresql.xql,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/acs-lang/tcl/lang-message-procs-postgresql.xql 11 Dec 2003 21:39:53 -0000 1.9 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs-postgresql.xql 16 Nov 2017 13:05:50 -0000 1.10 @@ -2,29 +2,6 @@ postgresql7.2 - - - update lang_messages - set [join $set_clauses ", "] - where locale = :locale - and message_key = :message_key - and package_key = :package_key - - - - - - insert into lang_messages ([join $col_clauses ", "]) - values ([join $val_clauses ", "]) - - - - - - current_timestamp - - - :message @@ -40,10 +17,4 @@ - - - sync_time = current_timestamp - - - Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v diff -u -N -r1.55 -r1.56 --- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 7 Aug 2017 23:47:56 -0000 1.55 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 16 Nov 2017 13:05:50 -0000 1.56 @@ -231,7 +231,7 @@ # Trying to avoid hitting Oracle bug#2011927 if { [string trim $message] eq "" } { - db_dml lang_message_null_update {} + db_dml lang_message_update {} } else { set cols(message) [db_map message] db_dml lang_message_update {} -clobs [list $message] Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.xql,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/acs-lang/tcl/lang-message-procs.xql 7 Aug 2017 23:47:56 -0000 1.9 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs.xql 16 Nov 2017 13:05:50 -0000 1.10 @@ -19,8 +19,15 @@ - + + insert into lang_messages ([join $col_clauses ", "]) + values ([join $val_clauses ", "]) + + + + + update lang_messages set [join $set_clauses ", "] where locale = :locale @@ -29,6 +36,18 @@ + + + current_timestamp + + + + + + sync_time = current_timestamp + + + insert into lang_messages ([join $col_clauses ", "])