Index: openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl,v diff -u -r1.2.2.2 -r1.2.2.3 --- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl 3 Nov 2006 20:48:22 -0000 1.2.2.2 +++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl 22 Nov 2006 22:17:55 -0000 1.2.2.3 @@ -13,7 +13,14 @@ namespace eval template {} namespace eval template::widget {} -ad_proc -public template::widget::select_locales { element_reference tag_attributes } { +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