%# BEGIN LICENSE BLOCK
%# 
%# Copyright (c) 1996-2002 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
<&| /Widgets/TitleBox, 
    title_href      => RT->Config->Get('WebPath') ."/RTIR/Search/Results.html?$QueryString",
    title_class     => 'inverse',
    title           => $title,
    titleright      => loc("Bulk Reject"),
    titleright_href => RT->Config->Get('WebPath') ."/RTIR/Report/BulkReject.html?$BulkQS",
    bodyclass       => '',
&>

<& /RTIR/Search/Elements/ShowResults,
    Queue        => $Queue,
    BaseQuery    => $BaseQuery,
    Query        => $Query,
    Format       => $Format,
    Rows         => $Rows,
    Page         => $Page,
    OrderBy      => $OrderBy,
    Order        => $Order,
    AllowSorting => 0,
&>
</&>

<%INIT>
my $title = loc("New unlinked Incident Reports...");

$Query ||= RT::IR->Query( Queue => $Queue, Initial => 1 );

my $QueryString = $m->comp('/Elements/QueryString',
    Queue   => $Queue,
    Query   => $Query,
    Format  => $Format,
    Rows    => $Rows,
    Page    => $Page,
    OrderBy => $OrderBy,
    Order   => $Order,
);

my $BulkQS = $m->comp('/Elements/QueryString',
    Queue   => $Queue,
    Query   => $Query,
    OrderBy => $OrderBy,
    Order   => $Order,
);

</%INIT>

<%ARGS>
$Queue     => 'Incident Reports'
$BaseQuery => RT::IR->Query( Queue => $Queue )
$Query     => undef
$Format    => RT->Config->Get('RTIRSearchResultFormats')->{'NewReports'}
$Rows      => RT->Config->Get('DefaultSummaryRows', $session{'CurrentUser'})
$Page      => 1
$OrderBy   => 'Due'
$Order     => 'ASC'
</%ARGS>
