Index: Strings.pm =================================================================== --- Strings.pm (revision 11653) +++ Strings.pm (working copy) @@ -314,9 +314,15 @@ $log->warn("redefined string: $name in $file"); } + # see whether we have a super language like eg. EN in EN_US + my $superLang = getLanguage() =~ /^(.+)_/ ? $1 : ''; + if (defined $curString->{$currentLang}) { $strings->{$currentLang}->{$name} = $curString->{$currentLang}; + } elsif (defined $curString->{$superLang}) { + $strings->{$currentLang}->{$name} = $curString->{$superLang}; + $log->debug("Language $currentLang using $superLang for $name in $file"); } elsif (defined $curString->{$failsafeLang}) { $strings->{$currentLang}->{$name} = $curString->{$failsafeLang}; $log->debug("Language $currentLang using $failsafeLang for $name in $file");