Index: openacs-4/packages/acs-lang/www/admin/batch-editor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/batch-editor.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/batch-editor.tcl	12 Nov 2002 15:34:23 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/batch-editor.tcl	3 Dec 2002 17:27:23 -0000	1.2
@@ -38,7 +38,7 @@
 
 set count 0
 set keys [list]
-
+set displayed_keys [list]
 db_foreach get_messages {
     select lm1.message_key as message_key,
            lm1.message as default_message
@@ -58,6 +58,7 @@
                    message_key =:message_key and 
                    locale =:current_locale
         }
+        lappend displayed_keys $message_key
         element create batch_editor "message_key_$count" -widget hidden -datatype text
         element create batch_editor "message_key_info_$count" -widget inform -datatype text -label "key"
         element create batch_editor "en_us_message_$count" -widget inform -datatype text -label "American"