rt/share/html/Callbacks/CheckMandatoryFields/Ticket/Modify.html/BeforeActionList

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