%# BEGIN BPS TAGGED BLOCK {{{
%# 
%# COPYRIGHT:
%#  
%# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC 
%#                                          <jesse@bestpractical.com>
%# 
%# (Except where explicitly superseded by other copyright notices)
%# 
%# 
%# LICENSE:
%# 
%# 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.
%# 
%# You should have received a copy of the GNU General Public License
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%# 
%# 
%# CONTRIBUTION SUBMISSION POLICY:
%# 
%# (The following paragraph is not intended to limit the rights granted
%# to you to modify and distribute this software under the terms of
%# the GNU General Public License and is only of importance to you if
%# you choose to contribute your changes and enhancements to the
%# community by submitting them to Best Practical Solutions, LLC.)
%# 
%# By intentionally submitting any modifications, corrections or
%# derivatives to this work, or any other work intended for use with
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
%# you are the copyright holder for those contributions and you grant
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
%# royalty-free, perpetual, license to use, copy, create derivative
%# works based on those contributions, and sublicense and distribute
%# those contributions and any derivatives thereof.
%# 
%# END BPS TAGGED 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('Links'), color => "#336633"&>
<& /Elements/EditLinks, Object => $Ticket, Merge => 1 &>
<& /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&>Reply to requestors</&></option>
% }
      </select> 
    </td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Subject</&>:</td>
    <td class="entry"><input name="UpdateSubject" size=60 value="<%$Ticket->Subject%>"></td>
  </tr>
% if (my $TxnCFs = $Ticket->TransactionCustomFields) {
%    while (my $CF = $TxnCFs->Next()) {
<TR>
<TD class="label"><% $CF->Name %>:</TD>
<TD class="entry"><& /Elements/EditCustomField, 
    CustomField => $CF, 
    NamePrefix => "Object-RT::Transaction--CustomField-"
    &><em><% $CF->FriendlyType %></em></TD>
</TD></TR>
%    } # end if while
% } # end of if
  <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);
 @cf_results = ProcessObjectCustomFieldUpdates( Object => $Ticket, ARGSRef => \%ARGS);
    @dresults = ProcessTicketDates( TicketObj => $Ticket, ARGSRef => \%ARGS);
    @lresults = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS);

    if ($ARGS{'UpdateAttachment'}) {
        my $subject = "$ARGS{'UpdateAttachment'}";
        # since CGI.pm deutf8izes the magic field, we need to add it back.
        Encode::_utf8_on($subject);
        # strip leading directories
        $subject =~ s#^.*[\\/]##;

        my $attachment = MakeMIMEEntity(
           Subject             => $subject,
           Body                => "",
           AttachmentFieldName => 'UpdateAttachment'
        );
	delete $ARGS{'UpdateAttachment'};
	$ARGS{'UpdateAttachments'}->{ $subject } = $attachment;
    }

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

    if ($ARGS{'UpdateAttachments'} || ( $ARGS{'UpdateContent'} && $ARGS{'UpdateContent'} ne  "-- \n" . 
				$session{'CurrentUser'}->UserObj->Signature)) {
   	 ProcessUpdateMessage(TicketObj => $Ticket, ARGSRef=>\%ARGS, Actions=>\@results);
	}
    @results = ProcessTicketBasics( TicketObj => $Ticket, ARGSRef => \%ARGS);
}
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>