1 package RT::Action::SetWillResolve;
8 return (ref $self ." will set a ticket's future resolve date to the argument.");
13 my $DateObj = RT::Date->new( $self->CurrentUser );
14 if ( length($self->Argument) ) {
17 Value => $self->Argument
20 else { # special case: treat Argument => '' as "never"
23 $self->{new_value} = $DateObj->ISO;
24 # if the before and after values are string-equivalent, don't bother
25 return ($DateObj->AsString ne $self->TicketObj->WillResolveAsString);
30 $self->TicketObj->SetWillResolve( $self->{new_value} );
33 RT::Base->_ImportOverlays();