1 package RT::Action::ScheduledResolve;
6 use base qw(RT::Action);
10 If the ticket's WillResolve date is in the past, set its status to resolved.
17 return undef if grep { $self->TicketObj->Status eq $_ } (
21 ); # don't resolve from any of these states.
22 my $time = $self->TicketObj->WillResolveObj->Unix;
23 # resolve if the WillResolve date is set, and in the past,
24 # and less than a year old
25 return ( $time > 0 and $time < time() and (time() - $time) < 31536000 );
31 my $never = RT::Date->new($self->CurrentUser);
33 $self->TicketObj->SetWillResolve($never->ISO);
34 $self->TicketObj->SetStatus('resolved');
37 RT::Base->_ImportOverlays();