rt/webrt/Search/Listing.html

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Search/Attic/Listing.html,v 1.1 2002-08-12 06:17:09 ivan Exp $
   2 %# Copyright 1996-2001 Jesse Vincent <jesse@fsck.com>
   3 <& /Elements/Header, Title => "Search", Refresh => $session{'tickets_refresh_interval'} &>
   4 <& /Elements/Tabs, current_toptab => 'Search/Listing.html' &>
   5
   6
   7 % unless ($ARGS{'Action'} eq 'Refine') {
   8 <TABLE WIDTH=100% border=0 cellpadding=3 CELLSPACING=1>
   9 <TR>
  10 %foreach my $col (@{Config(\%ARGS, 'QueueListingCols')}) {
  11 <TH>
  12
  13 <%PERL>
  14 my ($order);
  15  my $attr = $col->{'TicketAttribute'};
  16  $attr =~ s/Obj->(Name|AsString|AgeAsString)//g;
  17   if ($session{'tickets_sort_order'} =~ /^asc$/i) {
  18    $order = 'DESC';
  19  } else {
  20    $order = 'ASC';
  21  }
  22 </%PERL>
  23
  24 % if (grep (/^$attr$/i, $session{'tickets'}->SortFields)) {
  25 <A
  26 % if ($attr eq $session{'tickets_sort_by'}) {
  27 class="currenttab"
  28 % }
  29 HREF="<% $RT::WebPath%>/Search/Listing.html?Bookmark=<%$session{'tickets'}->FreezeLimits()|u%>&TicketsSortBy=<%$attr%>&TicketsSortOrder=<%$order%>&RowsPerPage=<%$session{'tickets_rows_per_page'}%>">
  30 <%$col->{Header}%>
  31 </A>
  32 % } else {
  33 <% $col->{Header} %>
  34 % }
  35 </TH>
  36 %}
  37 </TR>
  38
  39 <%PERL>
  40
  41 my $i;
  42
  43 $session{'tickets'}->RedoSearch();
  44 while (my $Ticket = $session{'tickets'}->Next) {
  45  $i++;
  46  if ($i % 2) {
  47      $bgcolor = "#dddddd";
  48  }
  49  else {
  50      $bgcolor = "#ffffff";
  51  }
  52       </%PERL>
  53 <TR bgcolor="<%$bgcolor%>" >
  54 %# The ticket view is controlled by config.pm, WebOptions
  55 %foreach my $col (@{Config(\%ARGS,'QueueListingCols')}) {
  56 <TD><& TicketCell , Ticket=>$Ticket,  Column=>$col &></TD>
  57 %}
  58 </TR>
  59 %}
  60
  61
  62
  63 </TABLE>
  64
  65 <div align=center>
  66 <font size=2>
  67 <a href="Listing.html?GotoPage=1">First page</a>
  68 &nbsp;&nbsp;
  69 <a href="Listing.html?GotoPage=Prev">&lt;Previous page</a>
  70 &nbsp;&nbsp;
  71 <a href="Listing.html?GotoPage=Next">Next page&gt;</a>
  72 %#&nbsp;&nbsp;<form method=get action="Listing.html">Goto page <input name=GotoPage size=2></form>
  73 </font>
  74 </div>
  75 % if ($session{'tickets'}->Count()) {
  76 <div align=right>
  77 <a href="Bulk.html">Update all these tickets at once</a>
  78 </div>
  79 % }
  80 <HR>
  81
  82 % } #endif {$ARGS{'Action'} eq 'Refine')
  83 <TABLE WIDTH="100%">
  84 <TR>
  85 <TD VALIGN="TOP">
  86 <& /Elements/TitleBoxStart, title => 'Search Criteria'&>
  87
  88 <A HREF="<% $RT::WebPath%>/Search/Listing.html?ClearRestrictions=1">New search</a><br>
  89 <A HREF="<% $RT::WebPath%>/Search/Listing.html?Bookmark=<%$session{'tickets'}->FreezeLimits()|u%>&TicketsSortBy=<%$session{'tickets_sort_by'}%>&TicketsSortOrder=<%$session{'tickets_sort_order'}%>&RowsPerPage=<%$session{'tickets_rows_per_page'}%>">Bookmarkable URL for this search</a>
  90 <BR>
  91 <BR>
  92 % my %restrictions=$session{'tickets'}->DescribeRestrictions();
  93 % my %seen_restrictions=();
  94 % foreach $row (keys %restrictions){
  95 %  my $tmp=$restrictions{"$row"};
  96 %  if( ! defined( $seen_restrictions{"$tmp"} ) ){
  97 <%$restrictions{"$row"}%> <A HREF="<% $RT::WebPath%>/Search/Listing.html?DeleteRestriction=<%$row%>">[delete]</a><br>
  98 %   } else {
  99 %     $session{'tickets'}->DeleteRestriction($row);
 100 <b>Deleted Duplicate Restriction <i><%$tmp%></i></b><br>
 101 % }
 102 % $seen_restrictions{"$tmp"}++;
 103 %}
 104 <& /Elements/TitleBoxEnd&>
 105 </TD>
 106 <TD>
 107
 108 <& PickRestriction &>
 109
 110 </TD>
 111 </TR>
 112 </TABLE>
 113
 114 <%INIT>
 115
 116 my $bgcolor;
 117 require RT::Interface::Web;
 118
 119 $session{'i'}++;
 120 if ($session{'tickets'}) {
 121     if ( ($ARGS{'ClearRestrictions'}) ||
 122          ($ARGS{'NewSearch'}) ) {
 123         $session{'tickets'}->ClearRestrictions;
 124     }
 125
 126     if ($ARGS{'DeleteRestriction'}) {
 127         $session{'tickets'}->DeleteRestriction($ARGS{'DeleteRestriction'});
 128     }
 129 }
 130 &ProcessSearchQuery(ARGS=>\%ARGS);
 131
 132 my $row;
 133
 134 </%INIT>