lookup.tcl

Test message lookup

Location:
/packages/acs-lang/www/admin/lookup.tcl
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:
lookup.tcl

Related Files

File Contents
