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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
<& /Elements/Header, Title => 'Modify ticket #'.$TicketObj->Id &>
<& /Ticket/Elements/Tabs, Ticket => $TicketObj, current_tab => "Ticket/Modify.html?id=".$TicketObj->Id &>
<& /Elements/ListActions, actions => \@results &>
<FORM METHOD=POST ACTION="Modify.html">
<INPUT TYPE=HIDDEN NAME=id VALUE="<%$TicketObj->Id%>">
<& /Elements/TitleBoxStart, title => 'Modify ticket #'.$TicketObj->Id,
color=> "#993333", width => "100%" &>
<& Elements/EditBasics, TicketObj => $TicketObj &>
<& /Elements/TitleBoxEnd &>
<& /Elements/TitleBoxStart, title => 'Keywords', color =>"#993333"&>
<& Elements/EditKeywordSelects, TicketObj=>$TicketObj &>
<& /Elements/TitleBoxEnd &>
<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to", color => "#993333" &>
</form>
<%INIT>
my $TicketObj = LoadTicket($id);
my @results = ProcessTicketBasics(TicketObj => $TicketObj, ARGSRef => \%ARGS);
my @okresults = ProcessTicketObjectKeywords(TicketObj => $TicketObj, ARGSRef => \%ARGS);
push (@results, @okresults);
# TODO: display the results, even if we can't display the ticket
unless ($TicketObj->CurrentUserHasRight('ShowTicket')) {
Abort("No permission to view ticket");
}
</%INIT>
<%ARGS>
$id => undef
</%ARGS>
|