Revision fe18b19f
Von Moritz Bunkus vor mehr als 4 Jahren hinzugefügt
SL/DB/Manager/Employee.pm | ||
---|---|---|
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);
|
Auch abrufbar als: Unified diff
SL::DB::Employee: Warnung vermeiden