rt/lib/RT/Action/SetWillResolve.pm

   1 package RT::Action::SetWillResolve;
   2 use base 'RT::Action';
   3
   4 use strict;
   5
   6 sub Describe  {
   7   my $self = shift;
   8   return (ref $self ." will set a ticket's future resolve date to the argument.");
   9 }
  10
  11 sub Prepare  {
  12     return 1;
  13 }
  14
  15 sub Commit {
  16     my $self = shift;
  17     my $DateObj = RT::Date->new( $self->CurrentUser );
  18     $DateObj->Set(
  19       Format => 'unknown',
  20       Value  => $self->Argument,
  21     );
  22     $self->TicketObj->SetWillResolve( $DateObj->ISO );
  23 }
  24
  25 RT::Base->_ImportOverlays();
  26
  27 1;