rt/lib/RT/Action/SetWillResolve.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

package RT::Action::SetWillResolve;
use base 'RT::Action';

use strict;

sub Describe  {
  my $self = shift;
  return (ref $self ." will set a ticket's future resolve date to the argument.");
}

sub Prepare  {
    return 1;
}

sub Commit {
    my $self = shift;
    my $DateObj = RT::Date->new( $self->CurrentUser );
    $DateObj->Set(
      Format => 'unknown', 
      Value  => $self->Argument,
    );
    $self->TicketObj->SetWillResolve( $DateObj->ISO );
}

RT::Base->_ImportOverlays();

1;