X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FUser.pm;h=46fe855810691cc738cfbfd941f28db0a14324dc;hb=cc042e07ef78786b758b22cee75509815e59ba5b;hp=88ea5b3f5207a9a82e311de8e9e9490183f364c2;hpb=b2945bf61775161f9ce9be9bdbd106ad44247a14;p=kivitendo-erp.git

diff --git a/SL/User.pm b/SL/User.pm
index 88ea5b3f5..46fe85581 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -450,10 +450,7 @@ sub process_perl_script {
   map({ $dbup_myconfig{$_} = $form->{$_}; }
       qw(dbname dbuser dbpasswd dbhost dbport dbconnect));
 
-  my $nls_file = $filename;
-  $nls_file =~ s|.*/||;
-  $nls_file =~ s|.pl$||;
-  my $dbup_locale = Locale->new($main::language, $nls_file);
+  my $dbup_locale = $::locale;
 
   my $result = eval($contents);