%# BEGIN LICENSE BLOCK %# %# Copyright (c) 1996-2002 Jesse Vincent %# %# (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("Search"), Refresh => $session{'tickets_refresh_interval'} &> <& /Elements/Tabs, current_toptab => 'Search/Listing.html' &> % unless ($ARGS{'Action'} eq loc('Refine')) { %foreach my $col (@{Config(\%ARGS, 'QueueListingCols')}) { %} <%PERL> my $i; my $ticketcount; $session{'tickets'}->RedoSearch(); $ticketcount = $session{tickets}->Count(); while (my $Ticket = $session{'tickets'}->Next) { $i++; if ($i % 2) { $bgcolor = "#dddddd"; } else { $bgcolor = "#ffffff"; } %# The ticket view is controlled by config.pm, WebOptions %foreach my $col (@{Config(\%ARGS,'QueueListingCols')}) { %} %}
<%PERL> my ($order); my $attr = $col->{'TicketAttribute'}; $attr =~ s/Obj->(Name|AsString|AgeAsString)//g; if ($session{'tickets_sort_order'} =~ /^asc$/i) { $order = 'DESC'; } else { $order = 'ASC'; } % if (grep (/^$attr$/i, $session{'tickets'}->SortFields)) { <% loc($col->{Header}) %> % } else { <% loc($col->{Header}) %> % }
<& TicketCell , Ticket=>$Ticket, Column=>$col &>
%if ($ticketcount > $session{'tickets_rows_per_page'}) { <&|/l&>First page    % if ( $session{'tickets'}->FirstRow >= $session{'tickets_rows_per_page'}-1 ) { <<&|/l&>Previous page    % } % if ( $session{'tickets'}->FirstRow + $session{'tickets_rows_per_page'} < $ticketcount ) { <&|/l&>Next page> % } %#  
<&|/l&>Goto page
%}
% if ($session{'tickets'}->Count()) {
<&|/l, $ticketcount &>[quant,_1,result] found <&|/l&>Update all these tickets at once
% }
% } #endif {$ARGS{'Action'} eq 'Refine')
<& /Elements/TitleBoxStart, title => loc('Search Criteria')&> <&|/l&>New search
<&|/l&>Bookmarkable URL for this search

%my %restrictions=$session{'tickets'}->DescribeRestrictions(); %foreach $row (keys %restrictions){ <%$restrictions{"$row"}%> [<&|/l&>delete]
%} <& /Elements/TitleBoxEnd&>
<& PickRestriction &>
<%INIT> my $bgcolor; require RT::Interface::Web; $session{'i'}++; if ($session{'tickets'}) { if ( ($ARGS{'ClearRestrictions'}) || ($ARGS{'NewSearch'}) ) { $session{'tickets'}->ClearRestrictions; } if ($ARGS{'DeleteRestriction'}) { $session{'tickets'}->DeleteRestriction($ARGS{'DeleteRestriction'}); } } &ProcessSearchQuery(ARGS=>\%ARGS); my $row;