#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
package RT::Search::ActiveTicketsInQueue;
use strict;
+use warnings;
use base qw(RT::Search);
-# {{{ sub Describe
sub Describe {
my $self = shift;
return ($self->loc("No description for [_1]", ref $self));
}
-# }}}
-# {{{ sub Prepare
sub Prepare {
my $self = shift;
$self->TicketsObj->LimitQueue(VALUE => $self->Argument);
-
- foreach my $status (RT::Queue->ActiveStatusArray()) {
- $self->TicketsObj->LimitStatus(VALUE => $status);
- }
+ $self->TicketsObj->LimitToActiveStatus;
return(1);
}
-# }}}
-eval "require RT::Search::ActiveTicketsInQueue_Vendor";
-die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/ActiveTicketsInQueue_Vendor.pm});
-eval "require RT::Search::ActiveTicketsInQueue_Local";
-die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/ActiveTicketsInQueue_Local.pm});
+RT::Base->_ImportOverlays();
1;