<& /Elements/Header, Title => 'Modify ticket #'.$TicketObj->Id &> <& /Ticket/Elements/Tabs, Ticket => $TicketObj, current_tab => "Ticket/Modify.html?id=".$TicketObj->Id &> <& /Elements/ListActions, actions => \@results &> <& /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" &> <%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"); } <%ARGS> $id => undef