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