X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5a23fdf6ec3cce197baaccad11b60bfe36005428..781c16772f3c80cc827f11815bfb07b8318621f0:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index ddd8233d3..b9840fc08 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -492,6 +492,9 @@ sub read_user {
   # The XUL/XML backed menu has been removed.
   $user_data{menustyle} = 'v3' if lc($user_data{menustyle} || '') eq 'xml';
 
+  # Set default language if selected language does not exist (anymore).
+  $user_data{countrycode} = $::lx_office_conf{system}->{language} unless $user_data{countrycode} && -d "locale/$user_data{countrycode}";
+
   $sth->finish();
 
   $main::lxdebug->leave_sub();