%# BEGIN LICENSE BLOCK
%# 
%# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
%# 
%# (Except where explictly superceded by other copyright notices)
%# 
%# This work is made available to you under the terms of Version 2 of
%# the GNU General Public License. A copy of that license should have
%# been provided with this software, but in any event can be snarfed
%# from www.gnu.org.
%# 
%# This work is distributed in the hope that it will be useful, but
%# WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%# General Public License for more details.
%# 
%# Unless otherwise specified, all modifications, corrections or
%# extensions to this work which alter its source code become the
%# property of Best Practical Solutions, LLC when submitted for
%# inclusion in the work.
%# 
%# 
%# END LICENSE BLOCK
<& /Elements/Header, Title => loc("Ticket #[_1] Jumbo update: [_2]", $Ticket->Id, $Ticket->Subject) &>
<& /Ticket/Elements/Tabs, 
    Ticket => $Ticket, 
    current_tab => "Ticket/ModifyAll.html?id=".$Ticket->Id, 
    Title => loc("Ticket #[_1] Jumbo update: [_2]", $Ticket->Id, $Ticket->Subject) &>

<& /Elements/ListActions, actions => \@results &>

<FORM METHOD=POST ACTION="ModifyAll.html" ENCTYPE="multipart/form-data">
<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>">


<& /Elements/TitleBoxStart, title => loc('Modify ticket # [_1]', $Ticket->Id),   color=> "#993333", width => "100%" &>
<& Elements/EditBasics, TicketObj => $Ticket &>
<& Elements/EditCustomFields, TicketObj => $Ticket &>
<& /Elements/TitleBoxEnd &>

<BR>

<& /Elements/TitleBoxStart, title => loc('Dates'),  width => "100%", color => "#663366"  &>
<& Elements/EditDates, TicketObj => $Ticket &>
<& /Elements/TitleBoxEnd &>

<BR>


<& /Elements/TitleBoxStart, title => loc('People'),width => "100%", color=> "#333399" &>
<& Elements/EditPeople, Ticket => $Ticket, UserField => $UserField, UserString => $UserString, UserOp => $UserOp &>
<& /Elements/TitleBoxEnd &>

<BR>

<& /Elements/TitleBoxStart, title => loc('Relationships'), color => "#336633"&>
<& Elements/EditLinks, Ticket => $Ticket &>
<& /Elements/TitleBoxEnd &>

<BR>

<& /Elements/TitleBoxStart, title => loc('Update ticket') &>
<table>
  <tr>
    <td class="label"><&|/l&>Update Type</&>:</td>
    <td class="entry">
      <select name="UpdateType">
% if ($CanComment) {
        <option value="private" ><&|/l&>Comments (Not sent to requestors)</&></option>
% }
% if ($CanRespond) {
        <option value="response"><&|/l&>Response to requestors</&></option>
% }
      </select> 
    </td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Subject</&>:</td>
    <td class="entry"><input name="UpdateSubject" size=60 value=""></td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Attach</&>:</td>
    <td class="entry"><input name="UpdateAttachment" type=file></td>
  </tr>
  <tr>
    <td class="labeltop"><&|/l&>Content</&>:</td>
    <td class="entry"><& /Elements/MessageBox, Name=>"UpdateContent", QuoteTransaction=>$ARGS{QuoteTransaction} &></td>
  </tr>
</table>
<& /Elements/TitleBoxEnd &>
  

<& /Elements/Submit, Label => loc('Save Changes'), Caption => loc("If you've updated anything above, be sure to"), color => "#333399" &>
</form>

<%INIT>



my $Ticket = LoadTicket($id);

my $CanRespond = 0;
my $CanComment = 0;


$CanRespond = 1 if ( $Ticket->CurrentUserHasRight('ReplyToTicket') or
                     $Ticket->CurrentUserHasRight('ModifyTicket') ); 

$CanComment = 1 if ( $Ticket->CurrentUserHasRight('CommentOnTicket') or
                     $Ticket->CurrentUserHasRight('ModifyTicket') );


my (@wresults, @results,  @dresults, @lresults, @cf_results);

unless ($OnlySearchForPeople) {
    @wresults = ProcessTicketWatchers( TicketObj => $Ticket, ARGSRef => \%ARGS);
    @results = ProcessTicketBasics( TicketObj => $Ticket, ARGSRef => \%ARGS);
 @cf_results = ProcessTicketCustomFieldUpdates( TicketObj => $Ticket, ARGSRef => \%ARGS);
    @dresults = ProcessTicketDates( TicketObj => $Ticket, ARGSRef => \%ARGS);
    @lresults = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS);

    $ARGS{'UpdateContent'} =~ s/\r\n/\n/g;

    if ($ARGS{'UpdateContent'} && 
	$ARGS{'UpdateContent'} ne '' && 
	$ARGS{'UpdateContent'} ne  "-- \n" . 
				$session{'CurrentUser'}->UserObj->Signature
       ) {
   	 ProcessUpdateMessage(TicketObj => $Ticket, 
			      ARGSRef=>\%ARGS, 
                              Actions=>\@results);
	}
}
push @results, @wresults;
push @results, @dresults;
push @results, @lresults;
push @results, @cf_results;

# If they've gone and moved the ticket to somewhere they can't see, etc...
# TODO: display the results, even if we can't display the ticket.

unless ($Ticket->CurrentUserHasRight('ShowTicket')) {
   Abort("No permission to view ticket");
}


</%INIT>



<%ARGS>
$OnlySearchForPeople => undef
$UserField => undef
$UserOp => undef
$UserString => undef
$id => undef
</%ARGS>