rt/lib/RT/Search/ActiveTicketsInQueue.pm

   1 # BEGIN LICENSE BLOCK
   2 #
   3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 #
   5 # (Except where explictly superceded by other copyright notices)
   6 #
   7 # This work is made available to you under the terms of Version 2 of
   8 # the GNU General Public License. A copy of that license should have
   9 # been provided with this software, but in any event can be snarfed
  10 # from www.gnu.org.
  11 #
  12 # This work is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 # General Public License for more details.
  16 #
  17 # Unless otherwise specified, all modifications, corrections or
  18 # extensions to this work which alter its source code become the
  19 # property of Best Practical Solutions, LLC when submitted for
  20 # inclusion in the work.
  21 #
  22 #
  23 # END LICENSE BLOCK
  24 =head1 NAME
  25
  26   RT::Search::ActiveTicketsInQueue
  27
  28 =head1 SYNOPSIS
  29
  30 =head1 DESCRIPTION
  31
  32 Find all active tickets in the queue named in the argument passed in
  33
  34 =head1 METHODS
  35
  36
  37 =begin testing
  38
  39 ok (require RT::Search::Generic);
  40
  41 =end testing
  42
  43
  44 =cut
  45
  46 package RT::Search::ActiveTicketsInQueue;
  47
  48 use strict;
  49 use base qw(RT::Search::Generic);
  50
  51
  52 # {{{ sub Describe
  53 sub Describe  {
  54   my $self = shift;
  55   return ($self->loc("No description for [_1]", ref $self));
  56 }
  57 # }}}
  58
  59 # {{{ sub Prepare
  60 sub Prepare  {
  61   my $self = shift;
  62
  63   $self->TicketsObj->LimitQueue(VALUE => $self->Argument);
  64
  65   foreach my $status (RT::Queue->ActiveStatusArray()) {
  66         $self->TicketsObj->LimitStatus(VALUE => $status);
  67   }
  68
  69   return(1);
  70 }
  71 # }}}
  72
  73 eval "require RT::Search::ActiveTicketsInQueue_Vendor";
  74 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/ActiveTicketsInQueue_Vendor.pm});
  75 eval "require RT::Search::ActiveTicketsInQueue_Local";
  76 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/ActiveTicketsInQueue_Local.pm});
  77
  78 1;