use base qw(RT::Search::Generic);
+# sub _Init {{{
+sub _Init {
+ my $self = shift;
+ my %args = @_;
+
+ $self->{'Queues'} = delete($args{'Queues'}) || [];
+ $self->SUPER::_Init(%args);
+}
+# }}}
+
# {{{ sub Describe
sub Describe {
my $self = shift;
}
}
+ # restrict to any queues requested by the caller
+ for my $queue (@{ $self->{'Queues'} }) {
+ my $QueueObj = RT::Queue->new($self->TicketsObj->CurrentUser);
+ $QueueObj->Load($queue) or next;
+ push @queue_clauses, "Queue = '" . $QueueObj->Name . "'";
+ }
+
push @tql_clauses, join( " OR ", sort @id_clauses );
push @tql_clauses, join( " OR ", sort @owner_clauses );
push @tql_clauses, join( " OR ", sort @status_clauses );