Revision a9f30fbd
Von Sven Schöling vor fast 10 Jahren hinzugefügt
| SL/DB/AuthGroup.pm | ||
|---|---|---|
|
|
||
|
if (@_) {
|
||
|
my %new_rights = ref($_[0]) eq 'HASH' ? %{ $_[0] } : @_;
|
||
|
$self->rights([ map { SL::DB::AuthGroupRight->new(right => $_, granted => $new_rights{$_} ? 1 : 0) } SL::Auth::all_rights() ]);
|
||
|
$self->rights([ map { SL::DB::AuthGroupRight->new(right => $_, granted => $new_rights{$_} ? 1 : 0) } $::auth->all_rights ]);
|
||
|
}
|
||
|
|
||
|
return {
|
||
|
map({ ($_ => 0) } SL::Auth::all_rights()),
|
||
|
map({ ($_ => 0) } $::auth->all_rights),
|
||
|
map({ ($_->right => $_->granted) } @{ $self->rights || [] })
|
||
|
};
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Rechte: SL::Auth::all_rights()
> $::auth>all_rights