1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
<%ARGS>
$TicketObj
$skip_update
$results
$ARGSRef => {}
</%ARGS>
<%INIT>
return unless $ARGSRef->{'SubmitTicket'};
my $CFs = $TicketObj->CustomFields;
my $ValidCFs = $m->comp(
'/Elements/ValidateCustomFields',
CustomFields => $CFs,
NamePrefix => "Object-RT::Ticket-". $TicketObj->id ."-CustomField-",
Object => $TicketObj,
ARGSRef => $ARGSRef
);
unless ( $ValidCFs ) {
$$skip_update = 1;
while (my $CF = $CFs->Next) {
my $msg = $m->notes('InvalidField-' . $CF->Id) or next;
push @$results, loc($CF->Name) . ': ' . $msg;
}
}
</%INIT>
|
