rt/webrt/Ticket/Modify.html

   1 <& /Elements/Header, Title => 'Modify ticket #'.$TicketObj->Id &>
   2 <& /Ticket/Elements/Tabs, Ticket => $TicketObj, current_tab => "Ticket/Modify.html?id=".$TicketObj->Id  &>
   3
   4 <& /Elements/ListActions, actions => \@results &>
   5 <FORM METHOD=POST ACTION="Modify.html">
   6 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$TicketObj->Id%>">
   7
   8 <& /Elements/TitleBoxStart, title => 'Modify ticket #'.$TicketObj->Id,
   9   color=> "#993333", width => "100%" &>
  10 <& Elements/EditBasics, TicketObj => $TicketObj &>
  11 <& /Elements/TitleBoxEnd &>
  12
  13 <& /Elements/TitleBoxStart, title => 'Keywords', color =>"#993333"&>
  14 <& Elements/EditKeywordSelects, TicketObj=>$TicketObj &>
  15 <& /Elements/TitleBoxEnd &>
  16
  17 <& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to", color => "#993333" &>
  18 </form>
  19 <%INIT>
  20
  21 my $TicketObj = LoadTicket($id);
  22
  23 my @results = ProcessTicketBasics(TicketObj => $TicketObj, ARGSRef => \%ARGS);
  24 my @okresults = ProcessTicketObjectKeywords(TicketObj => $TicketObj, ARGSRef => \%ARGS);
  25
  26 push (@results, @okresults);
  27
  28 # TODO: display the results, even if we can't display the ticket
  29
  30 unless ($TicketObj->CurrentUserHasRight('ShowTicket')) {
  31      Abort("No permission to view ticket");
  32 }
  33
  34 </%INIT>
  35
  36
  37 <%ARGS>
  38 $id => undef
  39 </%ARGS>