diff options
-rw-r--r-- | config-db/OpenSLX/Basics.pm | 7 | ||||
-rw-r--r-- | config-db/OpenSLX/Translations/de_de_utf8.pm (renamed from config-db/OpenSLX/Translations/de_de_utf_8.pm) | 0 |
2 files changed, 4 insertions, 3 deletions
diff --git a/config-db/OpenSLX/Basics.pm b/config-db/OpenSLX/Basics.pm index 7021cb95..fdac05e0 100644 --- a/config-db/OpenSLX/Basics.pm +++ b/config-db/OpenSLX/Basics.pm @@ -183,7 +183,8 @@ sub openslxInit sub trInit { my $locale = $openslxConfig{'locale'}; - $locale =~ tr[A-Z.\-][a-z__]; + $locale =~ tr[A-Z.][a-z_]; + $locale =~ tr[\-][]d; my $trModule = "OpenSLX::Translations::$locale"; if ($loadedTranslationModule eq $trModule) { @@ -196,7 +197,7 @@ sub trInit if (eval "require OpenSLX::Translations::posix") { %translations = %OpenSLX::Translations::posix::translations; } else { - carp "Unable to load translations module 'posix' ($!)."; + vlog 1, "Unable to load translations module 'posix' ($!)."; } if ($locale ne 'posix') { @@ -213,7 +214,7 @@ sub trInit vlog 1, _tr("translations module %s loaded successfully", $trModule); } else { - carp "Unable to load translations module '$locale' ($!)."; + vlog 1, "Unable to load translations module '$locale' ($!)."; } } diff --git a/config-db/OpenSLX/Translations/de_de_utf_8.pm b/config-db/OpenSLX/Translations/de_de_utf8.pm index b5cdd679..b5cdd679 100644 --- a/config-db/OpenSLX/Translations/de_de_utf_8.pm +++ b/config-db/OpenSLX/Translations/de_de_utf8.pm |