blob: 4779411ce6dfd8bc4cbfc39f3525849718f01fa8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
<%init>
use Data::Dumper;
my $ARGSRef = $ARGS{'ARGSRef'};
my $TicketObj = $ARGS{'Ticket'};
my $results = $ARGS{'Actions'};
if(defined($ARGSRef->{'resolve'})) {
my @errors =
$m->comp('/Ticket/Elements/CheckMandatoryFields', Ticket => $TicketObj);
return if !@errors;
my $msg = 'Missing required field'.(@errors > 1 ? 's' : '').': ' .
join(', ', map { $_->Name } @errors);
$m->notes( ('InvalidField-' . $_->Id) => 'Required' ) foreach @errors;
push @$results, $msg;
}
</%init>
|
