%# 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
<& /RTIR/Elements/Header, Title => $title &>
<& '/RTIR/'.$Type.'/Elements/Tabs', 
    Ticket => $Ticket, 
    current_subtab => "RTIR/Edit.html?id=".$Ticket->Id, 
    Title => $title &>

<FORM ACTION="Update.html" NAME="TicketUpdate" 
	METHOD=POST enctype="multipart/form-data">
<input type="hidden" name="QuoteTransaction" value="<% $ARGS{QuoteTransaction} %>">
<input type="hidden" name="DefaultStatus" value="<% $ARGS{DefaultStatus} %>">
<input type="hidden" name="Status" value="<% $ARGS{DefaultStatus} %>">
<input type="hidden" name="Action" value="<% $ARGS{Action} %>">
% if ($Type eq 'Report' and $ARGS{'DefaultStatus'} eq 'rejected') {
%   my $query = "Queue = 'Incidents' AND HasMember = " . $Ticket->Id;
%   my $incidents = new RT::Tickets($session{'CurrentUser'});
%   $incidents->FromSQL($query);
%   while (my $member = $incidents->Next) {
<input type="hidden" name="DeleteLink--MemberOf-<%$member->Id%>">
%   }
% }     
<font size=-1>

<TABLE>
<TR><TD>
<a href="Edit.html?id=<%$Ticket->Id%>"><&|/l&>Correspondents</&></A></TD><TD align=right>
<&|/l&>Requestor</&>:
</TD><TD>
<b><% $Ticket->RequestorAddresses %></b>
</TD></TR>
<TR><TD>&nbsp;</TD><TD align=right>
<&|/l&>Cc</&>:
</TD><TD>
<b><% $Ticket->CcAddresses %></b>
</TD></TR>
<TR><TD>&nbsp;</TD><TD align=right>
<&|/l&>AdminCc</&>:
</TD><TD>
<b><% $Ticket->AdminCcAddresses %></b>
</TD></TR>
</TR>
</TABLE>
<hr>

<TABLE BORDER=0>

<tr><td align=right><&|/l&>State</&>:</td>
<td><%$State%></td></tr>
<tr><td align=right><&|/l&>Update Type</&>:</td>
<td><select name="UpdateType">
% if ($CanComment) {
  <option value="private" <%$CommentDefault%>><&|/l&>Comments (Not sent to requestors)</&></option>
% }
% if ($CanRespond) {
   <option value="response" <%$ResponseDefault%>><&|/l&>Response to requestors</&></option>
% }
</select> 
</td></tr>
<tr><td class="label">
<&|/l&>Owner</&>:  
</td><td>
<& /Elements/SelectOwner, 
    Name=>"Owner", 
    Default => ($ARGS{Owner}||$Ticket->OwnerObj->Id()||$session{'CurrentUser'}->Id||undef), 
    QueueObj => $Ticket->QueueObj, 
    TicketObj => $Ticket &>
<&|/l&>Worked</&>: <input size=4 name="UpdateTimeWorked" value="<%
$ARGS{UpdateTimeWorked}%>"> <&|/l&>minutes</&>
</td></tr>
<tr><td align=right><&|/l&>Subject</&>:</td><td> <input name="UpdateSubject" size=60 value="<% $Subject %>"></td></tr>

<& /RTIR/Elements/UpdateData, Ticket => $Ticket, Type => 'Incident', %ARGS &>

<INPUT TYPE=HIDDEN NAME=id VALUE="<%$Ticket->Id%>"><br>
</table>

<& /Elements/Submit, Name => 'SubmitTicket' &>
</FORM>

<%INIT>

my $title;
my $Ticket = LoadTicket($id);

my ($Type, undef) = $m->comp('Elements/Type', Ticket => $Ticket->Id);

my $name;
if ($Type eq 'Report') {
  $name = "Incident Report";
} else {
  $name = $Type;
}


unless($DefaultStatus){
    $DefaultStatus=($ARGS{'Status'} ||$Ticket->Status());
}

if ($DefaultStatus =~ '^new$'){
        $DefaultStatus='open';
}

if ($DefaultStatus eq 'resolved') {
    $title = loc("Resolve [_1] #[_2] ([_3])", $name, $Ticket->id, $Ticket->Subject);
} elsif ($DefaultStatus eq 'rejected') {
  if ($Type eq 'Incident') {
    $title = loc("Abandon [_1] #[_2] ([_3])", $name, $Ticket->id, $Ticket->Subject);
  } else {
    $title = loc("Reject [_1] #[_2] ([_3])", $name, $Ticket->id, $Ticket->Subject);
  }
} else {
    $title = loc("Update [_1] #[_2] ([_3])", $name, $Ticket->id, $Ticket->Subject);
}

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

# Things needed in the template - we'll do the processing here, just
# for the convenience:

my ($CommentDefault, $ResponseDefault);
if (($Action eq 'Comment') or ($ARGS{'UpdateType'} eq 'private')) {
   $CommentDefault = "SELECTED"; 
} else {
    $ResponseDefault = "SELECTED";
}

my $Subject;
if ($ARGS{'UpdateSubject'}) {
  $Subject = $ARGS{'UpdateSubject'};
} elsif ($Ticket) {
  $Subject = $Ticket->Subject;
}

my $replystring = lc($RT::ReplyString);
if ( $Action eq 'Respond' &&
     $replystring &&
     lc(substr($Subject, 0, length($replystring))) ne $replystring) {
  $Subject = $RT::ReplyString . " " . $Subject;
}

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

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


# {{{ deal with deleting uploaded attachments
foreach my $key (keys %ARGS) {
    if ($key =~ m/^DeleteAttach-(.+)$/) {
	delete $session{'Attachments'}{$1};
    }
    $session{'Attachments'} = { %{$session{'Attachments'} || {}} };
}

# {{{ store the uploaded attachment in session
if ($ARGS{'Attach'}) {			# attachment?
    $session{'Attachments'} = {} unless defined $session{'Attachments'};

    # strip leading directories
    $ARGS{'Attach'} =~ s#^.*[\\/]##;

    my $attachment = MakeMIMEEntity(
        Subject             => "$ARGS{'Attach'}",
        Body                => "",
        AttachmentFieldName => 'Attach'
    );
    $session{'Attachments'} = { %{$session{'Attachments'} || {}},
				$ARGS{'Attach'} => $attachment };
}
# }}}

# delete temporary storage entry to make WebUI clean
unless (keys %{$session{'Attachments'}} and $ARGS{'UpdateAttach'}) {
    delete $session{'Attachments'};
}
# }}}

if ( exists $ARGS{SubmitTicket} ) {
    $m->comp('/RTIR/Display.html', %ARGS);
    $m->abort();
}

my $State = $m->scomp("/RTIR/Elements/ShowRTIRField", Ticket => $Ticket, Name => 'State');
</%INIT>

<%ARGS>
$id => undef
$DefaultStatus => undef
$Action => undef
</%ARGS>