Index: openacs-4/packages/acs-lang/acs-lang.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v
diff -u -r1.64.2.9 -r1.64.2.10
--- openacs-4/packages/acs-lang/acs-lang.info 18 May 2020 21:13:20 -0000 1.64.2.9
+++ openacs-4/packages/acs-lang/acs-lang.info 6 Jun 2020 16:27:35 -0000 1.64.2.10
@@ -9,7 +9,7 @@
f
t
-
+
Peter Marklund
OpenACS Internationalization Support.
2017-08-06
@@ -20,7 +20,7 @@
GPL
3
-
+
Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.68.2.6 -r1.68.2.7
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 6 Jun 2020 12:44:55 -0000 1.68.2.6
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl 6 Jun 2020 16:27:35 -0000 1.68.2.7
@@ -872,9 +872,10 @@
#
# Trying locale directly
#
- if { [message_exists_p -varname message $locale $key] } {
- } else {
- # Trying default locale for language
+ if { ![message_exists_p -varname message $locale $key] } {
+ #
+ # Trying default locale for language.
+ #
set language [lindex [split $locale "_"] 0]
set locale [lang::util::default_locale_from_lang $language]
if { ![message_exists_p -varname message $locale $key] } {