master.tcl

Location:
/packages/categories/www/cadmin/master.tcl
Author:
Timo Hentschel <timo@timohentschel.de>

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    @author Timo Hentschel (timo@timohentschel.de)

} {
    {locale:word "[ad_conn locale]"}
}

if {![info exists change_locale]} {
    set change_locale t
}

if {$locale eq ""} {
    #set locale [parameter::get -parameter DefaultLocale -default en_US]
    set locale [ad_conn locale]
}

set languages [lang::system::get_locale_options]
set vars_to_export_list {tree_id category_id }

set set_id [ad_conn form]
set varname_list [lmap k [dict keys [ns_set array $set_id]] {
    if {$k in {
        tree_id category_id locale form:mode form:id 
        __confirmed_p __refreshing_p formbutton:ok
        __submit_button_name __submit_button_value
    }} continue
    set k
}]

foreach name $varname_list {
  set $name [ns_set get $set_id $name]
  lappend vars_to_export_list $name
}

ad_form -name locale_form -action [ad_conn url] \
    -export $vars_to_export_list \
    -form {
      {locale:text(select),optional {label "Language"} {value $locale} {options $languages}}
    }

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