Revision fe18b19f
Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt
SL/DB/Manager/Employee.pm | ||
---|---|---|
31 | 31 |
my %employees_by_login = map { ($_->login => $_) } @{ $class->get_all }; |
32 | 32 |
|
33 | 33 |
require SL::DB::AuthClient; |
34 |
no warnings 'once'; |
|
35 |
|
|
34 | 36 |
foreach my $user (@{ SL::DB::AuthClient->new(id => $::auth->client->{id})->load->users || [] }) { |
35 | 37 |
my $user_config = $user->config_values; |
36 | 38 |
my $employee = $employees_by_login{$user->login} || SL::DB::Employee->new(login => $user->login); |
Auch abrufbar als: Unified diff
SL::DB::Employee: Warnung vermeiden