%# $Header: /raid/cvsroot/rt/webrt/Search/Listing.html,v 1.2 2001/11/06 23:07:01 jesse Exp $ %# Copyright 1996-2001 Jesse Vincent <& /GroupService/Elements/Header, Title => "Search", Refresh => $session{'tickets_refresh_interval'} &> % unless ($ARGS{'Action'} eq 'Refine') { %foreach my $col (@reducedCols) { %} <%PERL> my $i; $session{'tickets'}->RedoSearch(); while (my $Ticket = $session{'tickets'}->Next) { $i++; my $flag = 0; my $requser; my $reqnick; my $requestors = $Ticket->Requestors; while (my $requestor = $requestors->Next) { $requser = $requestor->OwnerObj; $reqnick = "not set"; $reqnick = $requser->NickName; $flag = 1 if $reqnick =~ /\b$usernick/; } next unless $flag; if ($Ticket->Status eq 'resolved') { $bgcolor = "#66ff00"; }elsif ($Ticket->Status eq 'fixed') { $bgcolor = "#66ffff"; }elsif ($Ticket->Status eq 'rejected') { $bgcolor = "#CC9933"; } else { if ($Ticket->Priority >= 96) { $bgcolor = "#ff0033"; } elsif ($Ticket->Priority >= 90) { $bgcolor = "#ff7777"; } elsif ($Ticket->Priority >= 70) { $bgcolor = "#ff9900"; } elsif ($Ticket->Priority >= 50) { $bgcolor = "#ffff00"; } elsif($i % 2) { $bgcolor = "#dddddd"; } else { $bgcolor = "#ffffff"; } } %# The ticket view is controlled by reducedCols placed in INIT section %foreach my $col (@reducedCols) { %} %}
<%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)) { <%$col->{Header}%> % } else { <% $col->{Header} %> % }
<& /GroupService/Search/TicketCell , Ticket=>$Ticket, Column=>$col &>
First page    <Previous page    Next page> %#  
Goto page

% } #endif {$ARGS{'Action'} eq 'Refine')
<& /Elements/TitleBoxStart, title => 'Search Criteria'&> New search
Bookmarkable URL for this search

%my %restrictions=$session{'tickets'}->DescribeRestrictions(); %foreach $row (keys %restrictions){ <%$restrictions{"$row"}%> [delete]
%} <& /Elements/TitleBoxEnd&>
<& /GroupService/Search/PickRestriction &>
<%INIT> my $bgcolor; require RT::Interface::Web; my $row; my $user = $session{'CurrentUser'}->UserObj; my $usernick = $user->NickName; my @reducedCols = ( { Header => 'Id', TicketLink => 1, TicketAttribute => 'Id' }, { Header => 'Subject', TicketAttribute => 'Subject' }, { Header => 'Requestor(s)', TicketAttribute => 'Requestors->First->OwnerObj->RealName', SearchLink => 1, SearchType => 'Requestor', SearchAttribute => 'Requestors->First->OwnerObj->EmailAddress', SearchOperator => 'LIKE', ExtraLinks => '&StatusOp=%21%3D&ValueOfStatus=dead&ValueOfStatus=resolved' }, { Header => 'Status', TicketAttribute => 'Status' }, { Header => 'Queue', TicketAttribute => 'QueueObj->Name' }, { Header => 'Told', TicketAttribute => 'ToldObj->AgeAsString' }, { Header => 'Age', TicketAttribute => 'CreatedObj->AgeAsString' }, { Header => 'Last', TicketAttribute => 'LastUpdatedObj->AgeAsString' }, ); $session{'i'}++; if ($session{'tickets'}) { if ( ($ARGS{'ClearRestrictions'}) || ($ARGS{'NewSearch'}) ) { $session{'tickets'}->ClearRestrictions; } if ($ARGS{'DeleteRestriction'}) { $session{'tickets'}->DeleteRestriction($ARGS{'DeleteRestriction'}); } } &ProcessSearchQuery(ARGS=>\%ARGS);