Revision c7176e61
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DB/Employee.pm | ||
|---|---|---|
| 5 | 5 |
use SL::DB::MetaSetup::Employee; |
| 6 | 6 |
use SL::DB::Manager::Employee; |
| 7 | 7 |
|
| 8 |
sub has_right {
|
|
| 9 |
my $self = shift; |
|
| 10 |
my $right = shift; |
|
| 11 |
|
|
| 12 |
return $::auth->check_right($self->login, $right); |
|
| 13 |
} |
|
| 8 | 14 |
|
| 9 | 15 |
1; |
Auch abrufbar als: Unified diff
Convenience: Employee->has_right() als Wrapper um $::auth->check_right()