-
-my $isSU = $session{CurrentUser}
- ->HasRight( Right => 'SuperUser', Object => $RT::System );
-foreach my $object (@objects) {
- my $Users = RT::Users->new( $session{CurrentUser} );
- $Users->WhoHaveRight(
- Right => 'OwnTicket',
- Object => $object,
- IncludeSystemRights => 1,
- IncludeSuperusers => $isSU
- );
- while ( my $User = $Users->Next() ) {
- next
- if ( $User->id == $RT::Nobody->id )
- ; # skip nobody here, so we can make them first later
- $user_uniq_hash{ $User->Id() } = $User;
- }
-}
-if ($Default && $Default != $RT::Nobody->id && !$user_uniq_hash{$Default}) {
- $user_uniq_hash{$Default} = RT::User->new($session{CurrentUser});
- $user_uniq_hash{$Default}->Load($Default);
-}
-
-my @users = sort { uc( $a->Name ) cmp uc( $b->Name ) } values %user_uniq_hash;
-unshift( @users, $RT::Nobody );
-
-$m->callback(
- %ARGS,
- objects => \@objects,
- CallbackName => 'UpdateObjectList'
-);
-
-