Revision c2e12394
Von Moritz Bunkus vor etwa 3 Jahren hinzugefügt
| SL/DB/Employee.pm | ||
|---|---|---|
| 27 | 27 |
return $self->name || $self->login; |
| 28 | 28 |
} |
| 29 | 29 |
|
| 30 |
sub auth_user {
|
|
| 31 |
my ($self) = @_; |
|
| 32 |
|
|
| 33 |
die 'not an accessor' if scalar(@_) > 1; |
|
| 34 |
|
|
| 35 |
require SL::DB::AuthUser; |
|
| 36 |
|
|
| 37 |
return SL::DB::Manager::AuthUser->find_by(login => $self->login); |
|
| 38 |
} |
|
| 39 |
|
|
| 30 | 40 |
1; |
Auch abrufbar als: Unified diff
SL::DB::Employee::auth_user: holt korrespondierendes Objekt aus auth.users
Convenience-Funktion, um einfacher an Config-Werte
heranzukommen. Beispiel:
foreach my $employee (@{ SL::DB::Manager::Employee->get_all }) {
my $email = $employee->auth_user->get_config_value('email');
do_stuff_with($email);
}