73 lines
1.7 KiB
Plaintext
73 lines
1.7 KiB
Plaintext
# Enhanced send facilitator initial email
|
|
# Custom conditions
|
|
# Custom Email
|
|
# Template - Send Facilitator Email
|
|
|
|
# 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 "Redacted Facilitator Email Sent";
|
|
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 "Redacted Facilitator Email Sent") {
|
|
if ($self->TicketObj->Status() ne "Re-send Facilitator Email") {
|
|
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 Redacted Facilitator 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 #27: Email sent. Facilitator is: '.$ticket->FirstCustomFieldValue('Facilitator Email'));
|
|
|
|
#$ticket->Comment(Content => 'AUTO Scrip #27: Redacted Facilitator Email Sent');
|
|
#my ($status, $msg) = $ticket->SetStatus('Redacted Facilitator Email Sent');
|
|
|
|
return 1;
|
|
|