Pridan ACL na zaklade role

lib/PiTube/Schema/ResultSet/ACL.pm

@@ -22,7 +22,7 @@ sub user_acl {
         $grants->{ $stream->key} = 1; #TODO: read|write
     }
 
-    # na zaklade role
+    # na zaklade clenstvi ve skupine, role nebo user.id
 
     my $acls = $class->search(
         {
@@ -30,6 +30,10 @@ sub user_acl {
                 {
                     class => 'all',
                 },
+                {
+                    class => 'group',
+                    value => { '-in' => $user->{groups} // [] },
+                },
                 {
                     class => 'role',
                     value => { '-in' => $user->{roles} // [] },