change-locale.tcl

Location:

/packages/acs-lang/www/change-locale.tcl

Related Files

• packages/acs-lang/www/change-locale.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

} {
    user_locale
    return_url:localurl
} -validate {
    valid_user_locale -requires user_locale {
        if {$user_locale ni [lang::system::get_locales]} {
            ad_complain "invalid user_locale"
        }
    }
}

if { [catch {lang::user::set_locale $user_locale} errmsg] } {
    ns_log Error "acs-lang/www/change-locale crashed calling lang::user::set_locale with user_locale='$user_locale'\n$errmsg"
    ad_return_error [_ acs-lang.Error_changing_locale] [_ acs-lang.User_locale_not_set]
} else {
    ad_returnredirect $return_url
}
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: