master.tcl

Does not contain a contract.

Location:
/packages/categories/www/cadmin/master.tcl
File Contents

# Author: Timo Hentschel (timo@timohentschel.de)

# "locale" is owned and validated by the slave page and may already be
# passed to this master as a page property. Do not contract it again here,
# since this can result in a spurious "two values" complaint.
#
# Fall back to the request value for slaves that do not pass the property
# explicitly, and finally to the connection locale.

if {![info exists locale] || $locale eq ""} {
    set form_id [ad_conn form]
    if {$form_id ne ""} {
        set locale [ns_set get $form_id locale]
    }
}

if {![info exists locale] || $locale eq ""} {
    set locale [ad_conn locale]
}

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

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:
master.tcl

Related Files

File Contents
