%# 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 &>
% my $EscapedQueue = $m->comp('/Elements/QueryString', Queue => $Queue );
% if ( $Split ) {
<& '/RTIR/'.$Type.'/Elements/Tabs', 
    Title          => $Title,
    Ticket         => $TicketObj,
    current_tab    => "RTIR/Split.html?Ticket=".$TicketObj->Id,
    current_subtab => "RTIR/Split.html?Ticket=".$TicketObj->Id,
&>
% } elsif ( $Incident ) {
<& "/RTIR/Search/Elements/RefineTabs",
    Title          => $Title,
    Ticket         => $IncidentObj,
    Queue          => $Queue,
    current_tab    => "RTIR/Create.html?Incident=$Incident&$EscapedQueue",
&>
% } else {
<& "/RTIR/".$Type."/Elements/Tabs",
    Title          => $Title,
    Ticket         => $TicketObj,
    current_tab    => "RTIR/Create.html?$EscapedQueue",
    current_subtab => "RTIR/Create.html?$EscapedQueue",
&>
% }

% $m->callback(CallbackName => 'BeforeActionList', %ARGS, Actions => \@results, ARGSRef => \%ARGS, Ticket => $TicketObj);
<& /Elements/ListActions, actions => \@results &>

% if ( $Split && !$TicketObj->CurrentUserHasRight('ModifyTicket') ) {
<% loc("You are not allowed to split this [_1].", $name) %>
%    $m->abort();
% }

% unless ( $Split ) {
<form action="<% RT->Config->Get('WebPath') %>/RTIR/Create.html" method="post" enctype="multipart/form-data">
% } else {
<form action="<% RT->Config->Get('WebPath') %>/RTIR/Split.html" method="post" enctype="multipart/form-data">
% }
<input type="hidden" name="id" value="new" />
<input type="hidden" name="Queue" value="<% $Queue %>" />
<input type="hidden" name="Status" value="<% $Status || 'new' %>" />
% if ( $Split ) {
<input type="hidden" name="Ticket" value="<% $TicketObj->Id %>" />
% }

<a name="top"></a>

<& /Elements/GnuPG/SignEncryptWidget:ShowIssues, self => $gnupg_widget &>

<&| /Widgets/TitleBox, contentbg => "#cccccc", title => $Title &>
<table border="0" cellpadding="0" cellspacing="2">
% if ( $Incident ) {
  <tr>
    <td align="right"><&|/l&>Incident</&>:</td>
    <td colspan="2"><% $Incident %><input type="hidden" name="Incident" value="<% $Incident || '' %>" /></td>
  </tr>
% } elsif ( $TicketObj ) {
  <tr>
    <td align="right"><&|/l&>Split from</&>:</td>
    <td colspan="2"><% $TicketObj->id %></td>
  </tr>
% if ( $parentvalue ) {
  <tr>
    <td align="right"><&|/l&>Will be linked to Incident(s):</&></td>
    <td colspan="2"><% $parentvalue %></td>
  </tr>
% }
% } else {
  <tr>
    <td class="label"><&|/l&>Incident</&><% $Type eq 'Block'? loc('(required)'): '' %>:</td>
    <td class="value" colspan="2"><input name="Incident" size="16" maxsize="16" value="<% $Incident || '' %>" /></td>
  </tr>
% }
  <tr>
    <td class="label"><&|/l&>Owner</&>:</td>
    <td colspan="2">
      <& /Elements/SelectOwner, 
          Name => "Owner", 
          QueueObj => $QueueObj, 
          Default => $ARGS{Owner}||$session{'CurrentUser'}->Id||undef &>
    </td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Subject</&>:</td>
    <td class="value" colspan="2">
      <input name="Subject" size="60" maxsize="100" value="<% $Subject || ''%>" />
    </td>
  </tr>
  <tr>
    <td align="right"><&|/l&>Time Worked</&>:</td>
    <td colspan="2">
      <table>
      <tr>
        <td><input size="3" name="TimeWorked" value="<% $ARGS{'TimeWorked'} || '' %>" /></td>
        <td align="right"><&|/l&>Time Left</&>:</td>
        <td><input size="3" name="TimeLeft" value="<% $ARGS{'TimeLeft'} || '' %>" /></td>
      </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Correspondents</&>:</td>
    <td><input name="Requestors" value="<% $ARGS{'Requestors'} || '' %>" size="40" /></td>
    <td>
      <input type="checkbox" name="SkipNotification" value="Requestors" <% (grep $_ eq 'Requestors', @SkipNotification)? 'checked': '' %> />
      <&|/l&>Don't send any emails to correspondents.</&>
    </td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Cc</&>:</td>
    <td class="value"><input name="Cc" value="<% $ARGS{'Cc'} || '' %>" size="40" /></td>
    <td><i><font size="-2">
        <&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of email addresses. These people <b>will</b> receive future updates.)</&>
    </font></i></td>
  </tr>
  <tr>
    <td class="label"><&|/l&>Admin Cc</&>:</td>
    <td class="value"><input name="AdminCc" value="<% $ARGS{'AdminCc'} || '' %>" size="40" /></td>
    <td><i><font size="-2">
        <&|/l&>(Sends a carbon-copy of this update to a comma-delimited list of administrative email addresses. These people <b>will</b> receive future updates.)</&>
    </font></i></td>
  </tr>
  <tr>
    <td class="labeltop"><&|/l&>Constituency</&>:</td>
    <td class="value" colspan="2">
% if ( !$Incident || RT->Config->Get('_RTIR_Constituency_Propagation') eq 'no' ) {
% my $default;
% $default = $IncidentObj->FirstCustomFieldValue('_RTIR_Constituency') if $Incident;
% $default ||= RT::IR::DefaultConstituency( $QueueObj );
% $default ||= scalar RT->Config->Get('_RTIR_Constituency_default');
      <& /RTIR/Elements/EditRTIRField, 
         QueueObj => $QueueObj, 
         Name     => 'Constituency',
         Default  => $default &>
% } else {
% #TODO: hacks, we need way to define CF value on Create, but don't allow user to change it
%   my $cf = RT::CustomField->new( $RT::SystemUser );
%   $cf->LoadByNameAndQueue( Name => '_RTIR_Constituency', Queue => $Queue );
      <input type="hidden" class="hidden" name="Constituency" value="Object-RT::Ticket--CustomField-<% $cf->id %>-Values" />
      <input type="hidden" class="hidden" name="Object-RT::Ticket--CustomField-<% $cf->id %>-Values-Magic" value="1" />
      <input type="hidden" class="hidden" name="Object-RT::Ticket--CustomField-<% $cf->id %>-Values" value="<% $IncidentObj->FirstCustomFieldValue('_RTIR_Constituency') %>" />
      <& /RTIR/Elements/ShowRTIRField, Ticket => $IncidentObj, Name => 'Constituency' &>
% }
    </td>
  </tr>

% if ( $Type eq 'Report' ) {
  <tr>
    <td class="labeltop"><&|/l&>SLA</&>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
         QueueObj => $QueueObj, 
         Name => 'SLA',
         Default => RT::IR::DefaultSLA() &>
    </td>
  </tr>
  <tr>
    <td class="labeltop"><&|/l&>Customer</&>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
         QueueObj => $QueueObj, 
         Name => 'Customer' &>
    </td>
  </tr>
  <tr>
    <td class="labeltop"><%loc("How Reported")%>:</td>
    <td class="value" colspan="2">
      <table>
        <tr>
          <td>
            <& /RTIR/Elements/EditRTIRField, 
              TicketObj => $TicketObj,
              QueueObj => $QueueObj, 
              Name => 'HowReported',
              Default => $ARGS{'HowReported-Value'} || RT->Config->Get('_RTIR_HowReported_default') &>
          </td>
    <td class="labeltop">
      <%loc("Reporter Type")%>:
    </td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
        TicketObj => $TicketObj,
        QueueObj => $QueueObj, 
        Name => 'ReporterType',
        Default => $ARGS{'ReporterType-Value'} || RT->Config->Get('_RTIR_ReporterType_default'), &>
    </td>
        </tr>
      </table>
    </td>
  </tr>
% } elsif ($Type eq "Block") {
  <tr>
    <td class="label"><%loc("Netmask")%>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
        TicketObj => $TicketObj,
        QueueObj => $QueueObj, Name => 'Netmask',
        Default => $ARGS{'Netmask-Value'} || RT->Config->Get('_RTIR_Netmask_default'), &>
    </td>
  </tr>
  <tr>
    <td class="label"><%loc("Port")%>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
        TicketObj => $TicketObj,
        QueueObj => $QueueObj, Name => 'Port',
        Default => $ARGS{'Port-Value'} || RT->Config->Get('_RTIR_Port_default') &>
    </td>
  </tr>
  <tr>
    <td class="label"><%loc("Where Blocked")%>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
        TicketObj => $TicketObj,
        QueueObj => $QueueObj, Name => 'WhereBlocked',
        Default => $ARGS{'WhereBlocked-Value'} || RT->Config->Get('_RTIR_WhereBlocked_default'), &>
    </td>
  </tr>
% } elsif ($Type eq "Investigation") {
  <tr>
    <td class="labeltop"><&|/l&>Customer</&>:</td>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
         QueueObj => $QueueObj, 
         Name => 'Customer' &>
    </td>
  </tr>
% }
  <tr>
    <td class="label"><%loc("IP address")%>:</td>
<%PERL>
my $ip_default = $ARGS{'IP-Value'};
if ( !$ip_default && $IncidentObj ) {
    $ip_default = join "\n", grep $_, map $_->Content,
        @{ $IncidentObj->CustomFieldValues( '_RTIR_IP' )->ItemsArrayRef };
}
$ip_default ||= RT->Config->Get('_RTIR_IP_default') || '';
</%PERL>
    <td class="value" colspan="2">
      <& /RTIR/Elements/EditRTIRField, 
        TicketObj => $TicketObj,
        QueueObj => $QueueObj, 
        Name => 'IP',
        Cols => 40, Rows => 5,
        Default => $ip_default &>
    </td>
  </tr>
  <tr>
    <td colspan="3">
      <& /Ticket/Elements/EditCustomFields, 
        TicketObj => $TicketObj, 
        QueueObj => $QueueObj &>
    </td>
  </tr>

  <tr><td colspan="3"><& SELF:AttachmentsForm &></td><tr>

% if ( $Type eq "Investigation" && $IncidentObj ) {
  <tr><td colspan="3"><& /RTIR/Elements/AttachReports, Ticket => $IncidentObj &></td><tr>
% }

% if ( $gnupg_widget ) {
  <tr><td>&nbsp;</td><td colspan="2">
  <& /Elements/GnuPG/SignEncryptWidget, self => $gnupg_widget, QueueObj => $QueueObj &>
  </td></tr>
% }

  <tr>
    <td class="labeltop"><&|/l&>Message</&>:</td>
    <td colspan="2">
% if (!exists $ARGS{Content}) {
%   my $Transactions;
%   if ($TicketObj) {
%     $Transactions = $TicketObj->Transactions;
%   } elsif ($IncidentObj) {
%     $Transactions = $IncidentObj->Transactions;
%   }
%
%   if ($Transactions) {
%   # Investigations should quote their included text
%   my $quote = 0;
%   if ($Type eq 'Investigation') {
%       $quote = 1;
%   }
%   $ARGS{Content} = $m->scomp("/RTIR/Elements/TransactionData", 
%      Transactions => $Transactions,
%      Type => 'messages',
%      Include => {'Create', 'Correspond'},
%      QuoteText => $quote);
%      $ARGS{Content} =~ s/\&gt;/>/g;
%   }
% }
<& /Elements/MessageBox, Default => $ARGS{Content}, QuoteTransaction => $QuoteTransaction &>
    </td>
  </tr>
  <tr>
    <td valign="top" colspan="3">
      <&| /Widgets/TitleBox, title => loc("Dates"),
          title_class=> 'inverse',  
          color => "#663366",
      &>
      <table border="0">
        <tr>
        <td align="right"><&|/l&>Starts</&>:</td>
          <td><input size="10" name="Starts" value="<% $ARGS{Starts} || '' %>" /></td>
        </tr>
        <tr>
        <td align="right"><&|/l&>Due</&>:</td>
        <td><input size="10" name="Due" value="<% $ARGS{Due} || '' %>" /></td>
        </tr>
      </table>
    </&>
    </td>
  </tr>
</table>
</&>

<& /Elements/Submit, Name => "Create", Label => $SubmitCaption &>
</form>

<%INIT>

my $QueueObj = new RT::Queue( $session{'CurrentUser'} );
$QueueObj->Load( $Queue ) || Abort( loc("Queue could not be loaded.") );


my $Type = RT::IR::TicketType( Queue => $Queue );
if ($Type eq 'Block' && RT->Config->Get('RTIR_DisableBlocksQueue') ) {
    Abort(loc("Blocks queue is disabled via config file"));
}
if ( $m->comp_exists("/RTIR/$Type/Create.html") ) {
    return $m->comp( "/RTIR/$Type/Create.html", %ARGS );
}

my ($Status, $name);
if ( $Type eq 'Report' ) {
    $name = 'Incident Report';
    $Status = 'new';
} elsif ( $Type eq 'Investigation' ) {
    $Status = 'open';
} elsif ( $Type eq 'Block' ) {
    $Status = 'new';
}
$name ||= $Type;

my (@results, $checks_failure);

my $IncidentObj;
if ( $Incident ) {
    $IncidentObj = RT::Ticket->new( $session{'CurrentUser'} );
    $IncidentObj->Load( $Incident );
    unless ( $IncidentObj->id ) {
        push @results, loc("Couldn't load incident #[_1]", $Incident );
        ($checks_failure, $IncidentObj, $Incident) = (1, undef, undef);
    }
    elsif ( $IncidentObj->QueueObj->Name ne 'Incidents' ) {
        push @results, loc('Ticket #[_1] is not an Incident', $Incident );
        ($checks_failure, $IncidentObj, $Incident) = (1, undef, undef);
    }
    elsif ( $ARGS{'Create'} 
        && RT->Config->Get('_RTIR_Constituency_Propagation') eq 'reject'
        && $ARGS{$ARGS{'Constituency'}} ne $IncidentObj->FirstCustomFieldValue('_RTIR_Constituency') )
    {
        push @results, loc('Incident #[_1] has constituency [_2], choose the same value for a new ticket or use another Incident', $Incident, $IncidentObj->FirstCustomFieldValue('_RTIR_Constituency') );
        ($checks_failure, $IncidentObj, $Incident) = (1, undef, undef);
    }
    else {
        $Subject ||= $IncidentObj->Subject;
    }
}
$Incident = $ARGS{'Incident'} = $IncidentObj->id if $IncidentObj;

my $parentvalue = '';
if ( $IncidentObj ) {
    $parentvalue = $IncidentObj->Id;
} elsif ( $TicketObj ) {
    my $incidents = RT::Tickets->new( $session{'CurrentUser'} );
    $incidents->FromSQL( "Queue = 'Incidents' AND HasMember = " . $TicketObj->Id );
    while ( my $incident = $incidents->Next ) {
        $parentvalue .= ' ' if $parentvalue;
        $parentvalue .= $incident->Id;
    }
}

push @results, $m->comp( 'SELF:ProcessAttachments', %ARGS );

my $gnupg_widget = $m->comp('/Elements/GnuPG/SignEncryptWidget:new', Arguments => \%ARGS );
$m->comp( '/Elements/GnuPG/SignEncryptWidget:Process',
    self      => $gnupg_widget,
    QueueObj  => $QueueObj,
);
if ( $ARGS{'Create'} && $gnupg_widget ) {
    my $status = $m->comp('/Elements/GnuPG/SignEncryptWidget:Check',
        self      => $gnupg_widget,
        Operation => 'Create',
        QueueObj  => $QueueObj,
    );
    $checks_failure = 1 unless $status;
}

if ( $ARGS{'Create'} ) {
    if ( $Type eq 'Investigation' && !$ARGS{'Requestors'} ) {
        push @results, loc( "You must enter a correspondent" );
        $checks_failure = 1;
    } elsif ( $Type eq 'Block' and not $IncidentObj ) {
        push @results, loc( "You must enter an Incident ID" );
        $checks_failure = 1;
    }

    my ($status, @msg) = $m->comp('/Elements/ValidateCustomFields',
        CustomFields => $QueueObj->TicketCustomFields,
        ARGSRef      => \%ARGS,
    );
    unless ( $status ) {
        push @results, loc( "Invalid value(s) of the custom fields:" ), @msg;
        $checks_failure = 1;
    }

    unless ( $checks_failure ) {
        $ARGS{'new-MemberOf'} = $parentvalue if $parentvalue;
        $m->callback(CallbackName => 'BeforeDisplay', Ticket => $TicketObj, ARGSRef => \%ARGS);
        return $m->comp( 'Display.html', %ARGS, SkipNotification => \@SkipNotification, results => \@results );
    }
    unshift @results, loc("Creation failed:") if @results;
}

my ($Title, $SubmitCaption);
if ( $Split ) {
    $Title = loc("Split [_1] #[_2]: [_3]", $name, $TicketObj->id, $TicketObj->Subject);
    $SubmitCaption = loc("Split");
} else {
    if ( $Type eq 'Investigation' ) {
        $Title = loc("Launch a new [_1]", $name);
        $SubmitCaption = loc("Launch");
    } else {
        $Title = loc("Create a new [_1]", $name);
        $SubmitCaption = loc("Create");
    }
}


</%INIT>

<%ARGS>
$Queue            => undef
@SkipNotification => ()

$Subject          => undef
$QuoteTransaction => undef

# Parent Incident
$Incident         => undef

$Split            => 0
# Split source
$TicketObj        => undef
</%ARGS>

<%METHOD ProcessAttachments>
<%ARGS>
@DeleteAttachments => ()
$Attachment => '';
</%ARGS>
<%INIT>

my @results;

$session{'Attachments'} ||= {};

# deal with deleting uploaded attachments
foreach ( grep $_ && exists $session{'Attachments'}{ $_ }, @DeleteAttachments ) {
    delete $session{'Attachments'}{ $_ };
    push @results, loc("Deleted attachment '[_1]'", $_ );
    $session{'i'}++;
}

# store the uploaded attachment in session
if ( $Attachment ) {
    my $filename = "$Attachment";
    $filename =~ s{^.*[\\/]}{};

    my $entity = MakeMIMEEntity(
        Subject             => $filename,
        Body                => '',
        AttachmentFieldName => 'Attachment'
    );
    $session{'Attachments'}{ $filename } = $entity;
    push @results, loc("Added attachment '[_1]'", $filename );
    $session{'i'}++;
}

return @results;
</%INIT>
</%METHOD>

<%METHOD AttachmentsForm>

<table>

% my $has_files = exists $session{'Attachments'} && keys %{ $session{'Attachments'} };
% if ( $has_files ) {
<tr><td><&|/l&>Attached file</&>:</td>
<td>
<&|/l&>Check box to delete</&><br />
<ul class="files">
% foreach my $name ( keys %{$session{'Attachments'}} ) {
<li><input type="checkbox" name="DeleteAttachments" value="<% $name %>" /><% $name %></li>
% }
</ul>
</td></tr>
% }

<tr><td class="label"><&|/l&>Attach file</&>:</td>
<td class="value">
<input type="file" name="Attachment" />
<input type="submit" name="AddAttachment" value="<% $has_files? loc('Add/Delete Files'): loc('Add More Files') %>" />
</td></tr>

</table>

</%METHOD>