%# $Header: /raid/cvsroot/rt/webrt/Search/Attic/Listing.html,v 1.1.2.38 2000/12/11 06:46:26 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent <& /Elements/Header, Title => "Ticket Listing" &> <& /Elements/Tabs &>

%foreach (@{Config(\%ARGS, 'QueueListingCols')}) { %} <%PERL> while (my $Ticket = $session{'tickets'}->Next) { $cnt++; if (($cnt % 2) == 1) { $bgcolor = "#dddddd"; } else { $bgcolor = "#ffffff"; } %# The ticket view is controlled by config.pm, WebOptions %foreach (@{Config(\%ARGS, 'QueueListingCols')}) { %} %}
<% $_->{Header} %>
<& TicketCell , Ticket=>$Ticket, Column=>$_ &>
%#<& QueueFooter format="$format" &>
<& /Elements/TitleBoxStart, title => 'Search Criteria'&> New search

%my %restrictions=$session{'tickets'}->DescribeRestrictions(); %foreach $row (keys %restrictions){ <%$restrictions{"$row"}%> [delete]
%} <& /Elements/TitleBoxEnd&>
<& /Elements/TitleBoxStart, title => 'Restrict Search'&> <& PickRestriction &> <& /Elements/TitleBoxEnd &>
<%INIT> my $cnt = 0; 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;