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 -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql 22 Sep 2003 11:49:01 -0000 1.7 +++ openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql 9 Dec 2003 13:41:52 -0000 1.7.2.1 @@ -5,23 +5,34 @@ update lang_messages - set message = empty_clob(), - upgrade_status = :message_upgrade_status + 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 (package_key, message_key, locale, message, upgrade_status, creation_user) - values (:package_key, :message_key, :locale, empty_clob(), :message_upgrade_status, :creation_user) + insert into lang_messages ([join $col_clauses ", "]) + values ([join $val_clauses ", "]) returning message into :1 + + + sysdate + + + + + + empty_clob() + + + update lang_message_keys @@ -32,4 +43,10 @@ + + + sync_time = sysdate + + +