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 @@
   <fullquery name="lang::message::register.lang_message_update">
     <querytext>
       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
     </querytext>
   </fullquery>
 
-  <fullquery name="lang::message::register.lang_message_insert">      
+  <fullquery name="lang::message::register.lang_message_insert">
     <querytext>
-      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
     </querytext>
   </fullquery>
 
+  <partialquery name="lang::message::register.sync_time">
+    <querytext>
+        sysdate
+    </querytext>
+  </partialquery>
+
+  <partialquery name="lang::message::register.message">
+    <querytext>
+        empty_clob()
+    </querytext>
+  </partialquery>
+
   <fullquery name="lang::message::update_description.update_description">
     <querytext>
       update lang_message_keys
@@ -32,4 +43,10 @@
     </querytext>
   </fullquery>
 
+  <partialquery name="lang::message::edit.set_sync_time_now">
+      <querytext>
+        sync_time = sysdate
+      </querytext>
+  </partialquery>
+
 </queryset>