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 -r1.7 -r1.8
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	18 Aug 2003 08:10:21 -0000	1.7
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	11 Dec 2003 21:39:53 -0000	1.8
@@ -22,23 +22,29 @@
   <fullquery name="lang::message::register.insert_message_key">
     <querytext> 
         insert into lang_message_keys
-            (message_key, package_key, upgrade_status)
+            (message_key, package_key)
           values
-            (:message_key, :package_key, :key_upgrade_status)
+            (:message_key, :package_key)
     </querytext>
   </fullquery>
 
   <fullquery name="lang::message::register.lang_message_null_update">
     <querytext>
       update lang_messages 
-      set    message = null,
-             upgrade_status = :message_upgrade_status
+      set    [join $set_clauses ", "]
       where  locale = :locale 
       and    package_key = :package_key
       and    message_key = :message_key
     </querytext>
   </fullquery>
 
+  <fullquery name="lang::message::register.lang_message_insert_null_msg">
+    <querytext>
+      insert into lang_messages ([join $col_clauses ", "]) 
+      values ([join $val_clauses ", "])
+    </querytext>
+  </fullquery>
+
   <fullquery name="lang::message::cache.select_locale_keys">
     <querytext>
       select locale, package_key, message_key, message 
@@ -47,13 +53,6 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="lang::message::register.lang_message_insert_null_msg">
-    <querytext>
-      insert into lang_messages (package_key, message_key, locale, message, upgrade_status) 
-      values (:package_key, :message_key, :locale, null, :message_upgrade_status) 
-    </querytext>
-  </fullquery>
-
   <fullquery name="lang::message::update_description.update_description_insert_null">
     <querytext>
       update lang_message_keys