rt/webrt/Ticket/Update.html

   1 <& /Elements/Header, Title=> $title  &>
   2 <& /Ticket/Elements/Tabs, Ticket => $Ticket &>
   3 <& /Elements/TitleBoxStart, title => "Update ticket" &>
   4
   5 <FORM ACTION="Display.html" NAME="TicketUpdate"
   6         METHOD=POST enctype="multipart/form-data">
   7
   8 <TABLE>
   9 <TR><TD>
  10 <a href="ModifyPeople.html?id=<%$Ticket->Id%>">Ticket watchers</A></TD><TD align=right>
  11 Requestor:
  12 </TD><TD>
  13 <b><% $Ticket->RequestorsAsString %></b>
  14 </TD></TR>
  15 <TR><TD>&nbsp;</TD><TD align=right>
  16 Cc:
  17 </TD><TD>
  18 <b><% $Ticket->CcAsString %></b>
  19 </TD></TR>
  20 <TR><TD>&nbsp;</TD><TD align=right>
  21 AdminCc:
  22 </TD><TD>
  23 <b><% $Ticket->AdminCcAsString %></b>
  24 </TD></TR>
  25 </TR>
  26 </TABLE>
  27 <hr>
  28
  29 <TABLE BORDER=0>
  30
  31 <tr><td align=right>Status:</td>
  32 <td>
  33 <& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &>
  34 Owner:
  35 <& /Elements/SelectOwner, Name=>"Owner", Default => $Ticket->OwnerObj->Id(), QueueObj => $Ticket->QueueObj, TicketObj => $Ticket &>
  36 Worked: <input size=4 name="UpdateTimeWorked"> minutes</td></tr>
  37 <tr><td align=right>Update Type:</td>
  38 <td><select name="UpdateType">
  39 % if ($CanComment) {
  40   <option value="private" <%$CommentDefault%>>Comments (Not sent to requestors)</option>
  41 % }
  42 % if ($CanRespond) {
  43    <option value="response" <%$ResponseDefault%>>Response to requestors</option>
  44 % }
  45 </select>
  46 </td></tr>
  47 <tr><td align=right>Subject:</td><td> <input name="UpdateSubject" size=60 value="<%$Ticket->Subject()%>"></td></tr>
  48 <tr><td align=right>Cc:</td><td> <input name="UpdateCc" size=60><BR>
  49 <i><font size=-2>(Sends a carbon-copy of this update to a comma-delimited list
  50 of email addresses. Does <b>not</b> change who will receive future updates.)</font></i>
  51 </td></tr>
  52 <tr><td align=right>Bcc:</td><td> <input name="UpdateBcc" size=60><BR>
  53 <i><font size=-2>(Sends a blind carbon-copy of this update to a comma-delimited list
  54 of email addresses. Does <b>not</b> change who will receive future updates.)</font></i>
  55 </td></tr>
  56 <tr><td align=right>Attach:</td><td><input name="UpdateAttachment" type="file"></td></tr>
  57 </table>
  58 <& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &>
  59                 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"><br>
  60
  61
  62
  63
  64 <& /Elements/TitleBoxEnd &>
  65 <& /Elements/Submit &>
  66   </FORM>
  67
  68
  69
  70 <%INIT>
  71
  72 my $CanRespond = 0;
  73 my $CanComment = 0;
  74 my $title;
  75
  76 my $Ticket = LoadTicket($id);
  77
  78
  79 if ($DefaultStatus eq 'resolved') {
  80         $title = "Resolve";
  81 } else {
  82         $title = "Update";
  83 }
  84
  85 $title .= " ticket #" . $Ticket->id . " (" .$Ticket->Subject.")";
  86
  87 # Things needed in the template - we'll do the processing here, just
  88 # for the convinience:
  89 my $CommentDefault=$Action eq "Comment" ? "SELECTED" : "";
  90 my $ResponseDefault=$Action eq "Respond" ? "SELECTED" : "";
  91
  92 $DefaultStatus = $Ticket->Status() unless ($DefaultStatus);
  93
  94 $CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or
  95                      $Ticket->CurrentUserHasRight('ModifyTicket') );
  96
  97 $CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or
  98                      $Ticket->CurrentUserHasRight('ModifyTicket') );
  99
 100
 101
 102
 103
 104 </%INIT>
 105
 106 <%ARGS>
 107 $id => undef
 108 $Action => undef
 109 $DefaultStatus => undef
 110 </%ARGS>