lookup.tcl
Test message lookup
- Location:
- /packages/acs-lang/www/admin/lookup.tcl
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Test message lookup } set page_title "Test Message Lookup" set context [list $page_title] set message_p 0 ad_form -name lookup -form { {key:text {label "[_ acs-lang.Message_key]"} {help_text "[_ acs-lang.Include_package_key_as]"} {html {size 50}} } {locale:text {label "[_ acs-lang.Locale]"} {help_text "[_ acs-lang.Can_be_two_character]"} } } -on_submit { if {[catch { # No substitution set message [lang::message::lookup $locale $key] } errmsg]} { ad_return_complaint 1 $errmsg ad_log error $errmsg ad_script_abort } set keyv [split $key "."] lassign $keyv package_key message_key set edit_url [export_vars -base edit-localized-message { package_key locale message_key {return_url [ad_return_url]} }] set message_p 1 } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: