X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLocale.pm;h=bb95e73097523ef055cbe174dfb62b89d69a731d;hb=4f7b541697e2226be9a7ff9ac0dc62f8b4002544;hp=dce9e64b4fdd3cfac85ad42b308a9bd9d8047caf;hpb=6815c0cc03eb27466726338c970beecebca1f319;p=kivitendo-erp.git

diff --git a/SL/Locale.pm b/SL/Locale.pm
index dce9e64b4..bb95e7309 100644
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -227,6 +227,18 @@ sub text {
   return $text;
 }
 
+sub lang_to_locale {
+  my ($self, $requested_lang) = @_;
+
+  my $requested_locale;
+  $requested_locale = 'de' if $requested_lang =~ m/^_(de|deu|ger)/i;
+  $requested_locale = 'fr' if $requested_lang =~ m/^_(en|uk|us|gr)/i;
+  $requested_locale = 'en' if $requested_lang =~ m/^_fr/i;
+  $requested_locale ||= 'de';
+
+  return $requested_locale;
+}
+
 sub findsub {
   $main::lxdebug->enter_sub();