[freeside-commits] freeside/rt/lib/RT/Action ScheduledResolve.pm, NONE, 1.1 SetWillResolve.pm, NONE, 1.1

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/rt/lib/RT/Action
In directory wavetail.420.am:/tmp/cvs-serv19442/rt/lib/RT/Action

Added Files:
	ScheduledResolve.pm SetWillResolve.pm 
Log Message:
RT future ticket resolve, #13853

--- NEW FILE: SetWillResolve.pm ---
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;

--- NEW FILE: ScheduledResolve.pm ---
package RT::Action::ScheduledResolve;

use strict;
use warnings;

use base qw(RT::Action);

=head1 DESCRIPTION

If the ticket's WillResolve date is in the past, set its status to resolved.

=cut

sub Prepare {
    my $self = shift;

    return undef if grep { $self->TicketObj->Status eq $_ } (
      'resolved',
      'rejected',
      'deleted'
    ); # don't resolve from any of these states.
    my $time = $self->TicketObj->WillResolveObj->Unix;
    return ( $time > 0 and $time < time() );
}

sub Commit {
    my $self = shift;

    my $never = RT::Date->new($self->CurrentUser);
    $never->Unix(-1);
    $self->TicketObj->SetWillResolve($never->ISO);
    $self->TicketObj->SetStatus('resolved');
}

RT::Base->_ImportOverlays();

1;