- # look into all rights that have group
- while( my $ace = $acl->Next ) {
- my $delegations = RT::ACL->new( $self->CurrentUser );
- $delegations->DelegatedFrom( Id => $ace->Id );
- $delegations->DelegatedBy( Id => $self->MemberId );
- push( @$list, $delegations );
- }