Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	8 Aug 2003 12:21:28 -0000	1.6
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	11 Aug 2003 16:16:21 -0000	1.7
@@ -45,6 +45,9 @@
 element create message_editing message -label "Message" \
     -datatype text -widget textarea -html { rows 6 cols 40 }
 
+element create message_editing comment -optional -label "Comment" \
+    -datatype text -widget textarea -html { rows 6 cols 40 }
+
 # The hidden elements for passing package key, message key and locale
 
 element create message_editing message_key -datatype text -widget hidden
@@ -133,7 +136,7 @@
     form get_values message_editing return_url
 
     # Register message via acs-lang
-    lang::message::register $locale $package_key $message_key $message
+    lang::message::register $locale $package_key $message_key $message $comment
 
     # Even if the country code is 2 chars, we avoid problems...
     set escaped_locale [ns_urlencode $locale]
@@ -143,3 +146,5 @@
     error $message
 
 }
+
+set lookups_url "lookups?[export_vars { package_key { message_key_list $message_key } }]"