# Enhanced Send Facilitator Unredacted Email
#
#
# Template - Demo Send Facilitators Full Email

# Custom Conditions:

# This script first checks for correct status
# Then assembles email
# Sends email

my $txn = $self->TransactionObj;
my $type = $txn->Type;

return 0 unless $type eq "Status" || ( $type eq 'Set' && $txn->Field eq 'Status');
return 0 unless $self->TicketObj->Status eq "Facilitator Accepted";
return 1;

# Custom Preparation

require RT::Action::SendEmail;
use strict;
use vars qw/@ISA/;
@ISA = qw(RT::Action::SendEmail);

#STOP RACE CONDITION!
if ($self->TicketObj->Status() ne "Facilitator Accepted") {
        return 0;
}

$self->SetRecipients();
$self->SUPER::Prepare();
$self->SUPER::Commit();
sub SetRecipients {
my $self = shift;
my $ticket = $self->TicketObj;
my ( @To, @PseudoTo, @Cc, @Bcc );
my $arg ='Owner,Requestor,AdminCc,Cc';
##Requestor
#push @To, $ticket->Requestors->MemberEmailAddresses;
push @To, $ticket->FirstCustomFieldValue('Facilitator Email');

my $creator = "Davis Admin";
@{ $self->{'To'} }  = @To;

}

1;

# Custom commit

# Move to Full Facilitator Email Sent and detailed email sent.

my $ticket = $self->TicketObj;
my $facilitator = $ticket->FirstCustomFieldValue('Facilitator Email');

if ($ticket->FirstCustomFieldValue('Facilitator Email') eq '') {
    return 0;
}

$ticket->Comment(Content => 'AUTO Scrip #28: Email with all details sent. Facilitator is: '.$ticket->FirstCustomFieldValue('Facilitator Email'));

$ticket->Comment(Content => 'AUTO Scrip #28: Changing status to "Full Facilitator Email Sent"');
my ($status, $msg) = $ticket->SetStatus('Full Facilitator Email Sent');

return 1;