Index: openacs-4/packages/acs-lang/www/admin/lookup.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/lookup.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-lang/www/admin/lookup.tcl 24 Sep 2003 17:20:54 -0000 1.1 +++ openacs-4/packages/acs-lang/www/admin/lookup.tcl 8 Apr 2011 11:57:15 -0000 1.2 @@ -9,17 +9,17 @@ ad_form -name lookup -form { {key:text - {label "Message key"} - {help_text "Include package key, as in package-key.message-key"} + {label "[_ acs-lang.Message_key]"} + {help_text "[_ acs-lang.Include_package_key_as]"} {html {size 50}} } {locale:text - {label "Locale"} - {help_text "Can be two-character for language only or five-character full locale"} + {label "[_ acs-lang.Locale]"} + {help_text "[_ acs-lang.Can_be_two_character]"} } } -on_submit { # No substitution - set message [lang::message::lookup $locale $key {} {} 0] + set message [lang::message::lookup $locale $key] set keyv [split $key "."] set package_key [lindex $keyv 0]