Index: openacs-4/packages/acs-lang/www/change-locale.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-lang/www/change-locale.tcl	5 Jan 2018 22:59:57 -0000	1.5
+++ openacs-4/packages/acs-lang/www/change-locale.tcl	3 Sep 2024 15:37:33 -0000	1.6
@@ -3,6 +3,12 @@
 } {
     user_locale
     return_url:localurl
+} -validate {
+    valid_user_locale -requires user_locale {
+        if {$user_locale ni [lang::system::get_locales]} {
+            ad_complain "invalid user_locale"
+        }
+    }
 }
 
 if { [catch {lang::user::set_locale $user_locale} errmsg] } {