Skip to content
Snippets Groups Projects
Verified Commit 5ac36476 authored by Andrej Ramašeuski's avatar Andrej Ramašeuski
Browse files

Array v pripade konkretniho opravneni

parent 1f2fcefb
Branches
No related tags found
No related merge requests found
......@@ -8,7 +8,7 @@ use base 'DBIx::Class::ResultSet';
sub user_acl {
my $class = shift;
my $user = shift;
my $right = shift // 0;
my $rights = {};
# verejne streamy
......@@ -54,10 +54,23 @@ sub user_acl {
$rights->{ $acl->stream->key } |= $acl->rights;
}
if ( $right ) {
my @keys = ();
KEY:
foreach my $key ( keys %{ $rights } ) {
if ( $rights->{$key} & $right ) {
push @keys, $key;
}
}
return \@keys;
}
return $rights;
}
1;
__END__
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment