ad_library {
Widgets for acs-lang.
Currently just a special version of the select widget which adds a "lang"
attribute to each option, as required by accessibility standards.
@author Don Baccus (dhogaza@pacifier.com)
@creation-date November 3, 2006
@cvs-id $Id: lang-widget-procs.tcl,v 1.10 2018/04/24 14:28:55 hectorr Exp $
}
namespace eval template {}
namespace eval template::widget {}
ad_proc -public template::widget::select_locales {
element_reference
tag_attributes
} {
Generate a select widget for locales. We need a custom widget for this one
case because accessibility standards require us to put out a "lang" attribute
if the text is not in the same language as the rest of the page.
} {
upvar $element_reference element
if { [info exists element(html)] } {
array set attributes $element(html)
}
if { [info exists element(values)] } {
template::util::list_to_lookup $element(values) values
}
array set attributes $tag_attributes
if { $element(mode) ne "edit" } {
set selected_list [list]
foreach option $element(options) {
lassign $option label value
if { [info exists values($value)] } {
lappend selected_list $label
append output ""
}
}
append output [join $selected_list ", "]
} else {
append output ""
}
return $output
}
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: