This commit was generated by cvs2svn to compensate for changes in r2526,
[freeside.git] / rt / webrt / SelfService / Update.html
1 <& /SelfService/Elements/Header, Title => 'Update ticket #'.$Ticket->id &>
2
3
4 <FORM ACTION="Display.html" METHOD=POST ENCTYPE="multipart/form-data">
5
6 Status:
7 <& /Elements/SelectStatus, Name=>"Status", Default => $DefaultStatus &> 
8 <input type=hidden name="UpdateType" value="response">
9
10 Subject: <input name="UpdateSubject" size=60 value="Re: <% $Ticket->Subject %>"> <br>
11 Attach: <input name="UpdateAttachment" type=file><br>
12 <& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &>
13                 <INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"><br>
14
15
16 <& /Elements/Submit &>
17   </FORM>
18
19
20
21 <%INIT>
22
23 my $Ticket = LoadTicket($id);
24
25 my $title = "Update ticket #" . $Ticket->id;
26
27 $DefaultStatus = $Ticket->Status() unless ($DefaultStatus);
28
29
30 Abort("No permission to view update ticket") 
31         unless ( $Ticket->CurrentUserHasRight('ReplyToTicket') or
32                      $Ticket->CurrentUserHasRight('ModifyTicket') ); 
33
34 </%INIT>
35
36 <%ARGS>
37 $id => undef
38 $Action => undef
39 $DefaultStatus => undef
40 </%ARGS>