kivitendo/SL/DB/Manager/Employee.pm @ 68748667
| c377a2da | Moritz Bunkus | package SL::DB::Manager::Employee;
|
||
use strict;
|
||||
| ac552280 | Moritz Bunkus | use SL::DB::Helper::Manager;
|
||
| d139dd31 | Moritz Bunkus | use SL::DB::Helper::Sorted;
|
||
| ac552280 | Moritz Bunkus | use base qw(SL::DB::Helper::Manager);
|
||
| c377a2da | Moritz Bunkus | |||
sub object_class { 'SL::DB::Employee' }
|
||||
__PACKAGE__->make_manager_methods;
|
||||
| d139dd31 | Moritz Bunkus | sub _sort_spec {
|
||
(
|
||||
default => [ 'name', 1 ],
|
||||
columns => {
|
||||
SIMPLE => 'ALL',
|
||||
map { +($_ => "lower(employee.$_)") } qw(deleted_email deleted_fax deleted_signature deleted_tel login name)
|
||||
},
|
||||
);
|
||||
}
|
||||
| c377a2da | Moritz Bunkus | sub current {
|
||
| 4bd1e2f8 | Sven Schöling | return undef unless $::myconfig{login};
|
||
| 4ad4574f | Moritz Bunkus | return $::request->cache('current')->{object} //= shift->find_by(login => $::myconfig{login});
|
||
| c377a2da | Moritz Bunkus | }
|
||
| f5093da0 | Moritz Bunkus | sub update_entries_for_authorized_users {
|
||
my ($class) = @_;
|
||||
my %employees_by_login = map { ($_->login => $_) } @{ $class->get_all };
|
||||
require SL::DB::AuthClient;
|
||||
| fe18b19f | Moritz Bunkus | no warnings 'once';
|
||
| f5093da0 | Moritz Bunkus | 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);
|
||||
$employee->update_attributes(
|
||||
name => $user_config->{name},
|
||||
deleted => 0,
|
||||
);
|
||||
}
|
||||
}
|
||||
| c377a2da | Moritz Bunkus | 1;
|
||
| f5093da0 | Moritz Bunkus | __END__
|
||
=pod
|
||||
=encoding utf8
|
||||
=head1 NAME
|
||||
SL::DB::Manager::Employee - RDBO manager for the C<employee> table
|
||||
=head1 SYNOPSIS
|
||||
my $logged_in_employee = SL::DB::Manager::Employee->current;
|
||||
=head1 FUNCTIONS
|
||||
=over 4
|
||||
=item C<current>
|
||||
Returns an RDBO instance corresponding to the currently logged-in user.
|
||||
=item C<update_entries_for_authorized_users>
|
||||
For each user created by the administrator in the admin section an
|
||||
entry only exists in the authentication table, but not in the employee
|
||||
table. This is where this function comes in: It iterates over all
|
||||
| 7c215391 | Geoffrey Richardson | authentication users that have access to the current client and ensures
|
||
that an entry for them exists in the table C<employee>. The matching
|
||||
| f5093da0 | Moritz Bunkus | is done via the login name which must be the same in both tables.
|
||
The only other properties that will be copied from the authentication
|
||||
table into the C<employee> row are C<name> and C<workphone>. In
|
||||
addition C<deleted> is always set to 0.
|
||||
The intention is that this function is called automatically during the
|
||||
login process.
|
||||
=back
|
||||
=head1 BUGS
|
||||
Nothing here yet.
|
||||
=head1 AUTHOR
|
||||
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
||||
=cut
|