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