Index: openacs-4/packages/acs-lang/www/admin/locale-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-edit.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-lang/www/admin/locale-edit.tcl	24 Mar 2018 00:14:57 -0000	1.12
+++ openacs-4/packages/acs-lang/www/admin/locale-edit.tcl	3 Sep 2024 15:37:33 -0000	1.13
@@ -7,9 +7,8 @@
     Modified by Christian Hvid
 
     @creation-date 19 march 2002
-    @cvs-id $Id$
 } {
-    locale
+    locale:word
 }
 
 # Get the locale for the user so that we 'spit' the content back in the
@@ -41,7 +40,7 @@
 # look for the PDF file of Oracle 8i "national language support guide"
 
 catch {
-    set nls_values_list [db_list_of_lists select_nls_values {select parameter, value 
+    set nls_values_list [db_list_of_lists select_nls_values {select parameter, value
     from v$nls_valid_values order by parameter, value}]
 
     foreach nls_value $nls_values_list {
@@ -81,7 +80,7 @@
 
     element create locale_editing nls_territory -label "NLS Territory" \
             -datatype text -widget select -options $list_nls_territory
-    
+
     element create locale_editing nls_charset -label "NLS Charset" \
             -datatype text -widget select -options $list_nls_charset
 } else {
@@ -90,7 +89,7 @@
 
     element create locale_editing nls_territory -label "NLS Territory" \
             -datatype text -widget text
-    
+
     element create locale_editing nls_charset -label "NLS Charset" \
             -datatype text -widget text
 }
@@ -99,7 +98,7 @@
     -label "MIME Charset" -datatype text
 
 element create locale_editing default_p -label "Default" \
-    -datatype text -widget hidden  
+    -datatype text -widget hidden
 
 if { [form is_request locale_editing] } {
 
@@ -113,7 +112,7 @@
         where locale = :locale"
 
     set locale_language [string trim $locale_language]
-    
+
     element set_properties locale_editing locale -value $locale_locale
     element set_properties locale_editing label -value $locale_label
     element set_properties locale_editing nls_language -value $locale_nls_language
@@ -124,7 +123,7 @@
 
     set lang_query "select label from language_639_2_codes"
 
-    if { [string length $locale_language] eq 3 } {
+    if { [string length $locale_language] == 3 } {
         append lang_query " where iso_639_2 = :locale_language"
     } else {
         append lang_query " where iso_639_1 = :locale_language"