SL::DB::Employee: Warnung vermeiden
authorMoritz Bunkus <m.bunkus@linet.de>
Mon, 9 Nov 2020 09:59:06 +0000 (10:59 +0100)
committerMoritz Bunkus <m.bunkus@linet.de>
Mon, 9 Nov 2020 09:59:06 +0000 (10:59 +0100)
SL/DB/Manager/Employee.pm

index f9642ab..400843b 100644 (file)
@@ -31,6 +31,8 @@ sub update_entries_for_authorized_users {
   my %employees_by_login = map { ($_->login => $_) } @{ $class->get_all };
 
   require SL::DB::AuthClient;
+  no warnings 'once';
+
   foreach my $user (@{ SL::DB::AuthClient->new(id => $::auth->client->{id})->load->users || [] }) {
     my $user_config = $user->config_values;
     my $employee    = $employees_by_login{$user->login} || SL::DB::Employee->new(login => $user->login);