1 # This Action will resolve all members of a resolved group ticket
3 package RT::Action::ResolveMembers;
4 require RT::Action::Generic;
6 @ISA=qw(RT::Action::Generic);
8 #Do what we need to do and send it out.
10 #What does this type of Action does
15 return (ref $self . " will resolve all members of a resolved group ticket.");
30 my $Links=RT::Links->new($RT::SystemUser);
31 $Links->Limit(FIELD => 'Type', VALUE => 'MemberOf');
32 $Links->Limit(FIELD => 'Target', VALUE => $self->TicketObj->id);
34 while (my $Link=$Links->Next()) {
35 # Todo: Try to deal with remote URIs as well
36 next unless $Link->BaseIsLocal;
37 my $base=RT::Ticket->new($self->TicketObj->CurrentUser);
38 # Todo: Only work if Base is a plain ticket num:
39 $base->Load($Link->Base);
40 # I'm afraid this might be a major bottleneck if ResolveGroupTicket is on.
46 # Applicability checked in Commit.
48 # {{{ sub IsApplicable