+sub Prepare {
+ my $self = shift;
+ my $DateObj = RT::Date->new( $self->CurrentUser );
+ if ( length($self->Argument) ) {
+ $DateObj->Set(
+ Format => 'unknown',
+ Value => $self->Argument
+ )
+ }
+ else { # special case: treat Argument => '' as "never"
+ $DateObj->Unix(-1);
+ }
+ $self->{new_value} = $DateObj->ISO;
+ # if the before and after values are string-equivalent, don't bother
+ return ($DateObj->AsString ne $self->TicketObj->WillResolveAsString);