diff options
Diffstat (limited to 'rt/lib/RT/Search')
-rw-r--r-- | rt/lib/RT/Search/ActiveTicketsInQueue.pm | 101 | ||||
-rw-r--r-- | rt/lib/RT/Search/FromSQL.pm | 109 | ||||
-rw-r--r-- | rt/lib/RT/Search/Generic.pm | 151 |
3 files changed, 0 insertions, 361 deletions
diff --git a/rt/lib/RT/Search/ActiveTicketsInQueue.pm b/rt/lib/RT/Search/ActiveTicketsInQueue.pm deleted file mode 100644 index 9f9dac70f..000000000 --- a/rt/lib/RT/Search/ActiveTicketsInQueue.pm +++ /dev/null @@ -1,101 +0,0 @@ -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -=head1 NAME - - RT::Search::ActiveTicketsInQueue - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -Find all active tickets in the queue named in the argument passed in - -=head1 METHODS - - -=begin testing - -ok (require RT::Search::Generic); - -=end testing - - -=cut - -package RT::Search::ActiveTicketsInQueue; - -use strict; -use base qw(RT::Search::Generic); - - -# {{{ 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); - } - - 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}); - -1; diff --git a/rt/lib/RT/Search/FromSQL.pm b/rt/lib/RT/Search/FromSQL.pm deleted file mode 100644 index 3842bb6ae..000000000 --- a/rt/lib/RT/Search/FromSQL.pm +++ /dev/null @@ -1,109 +0,0 @@ -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -=head1 NAME - - RT::Search::FromSQL - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -Find all tickets described by the SQL statement passed as an argument - -=head1 METHODS - - -=begin testing - -ok (require RT::Search::Generic); - -=end testing - - -=cut - -package RT::Search::FromSQL; - -use strict; -use base qw(RT::Search::Generic); - -=head2 Describe - -Returns a localized string describing the module's function. - -=cut - -# {{{ sub Describe -sub Describe { - my $self = shift; - return ($self->loc("TicketSQL search module", ref $self)); -} -# }}} - -=head2 Prepare - -The meat of the module. Runs a search on its Tickets object, using -the SQL string described in its Argument object. The Tickets object -is reduced to those tickets matching the SQL query. - -=cut - -# {{{ sub Prepare -sub Prepare { - my $self = shift; - - $self->TicketsObj->FromSQL($self->Argument); - return(1); -} -# }}} - -eval "require RT::Search::FromSQL_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/FromSQL_Vendor.pm}); -eval "require RT::Search::FromSQL_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/FromSQL_Local.pm}); - -1; diff --git a/rt/lib/RT/Search/Generic.pm b/rt/lib/RT/Search/Generic.pm deleted file mode 100644 index 3f3aa837b..000000000 --- a/rt/lib/RT/Search/Generic.pm +++ /dev/null @@ -1,151 +0,0 @@ -# BEGIN BPS TAGGED BLOCK {{{ -# -# COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# <jesse@bestpractical.com> -# -# (Except where explicitly superseded by other copyright notices) -# -# -# LICENSE: -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# -# CONTRIBUTION SUBMISSION POLICY: -# -# (The following paragraph is not intended to limit the rights granted -# to you to modify and distribute this software under the terms of -# the GNU General Public License and is only of importance to you if -# you choose to contribute your changes and enhancements to the -# community by submitting them to Best Practical Solutions, LLC.) -# -# By intentionally submitting any modifications, corrections or -# derivatives to this work, or any other work intended for use with -# Request Tracker, to Best Practical Solutions, LLC, you confirm that -# you are the copyright holder for those contributions and you grant -# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -# royalty-free, perpetual, license to use, copy, create derivative -# works based on those contributions, and sublicense and distribute -# those contributions and any derivatives thereof. -# -# END BPS TAGGED BLOCK }}} - -=head1 NAME - - RT::Search::Generic - ; - -=head1 SYNOPSIS - - use RT::Search::Generic; - my $tickets = RT::Tickets->new($CurrentUser); - my $foo = RT::Search::Generic->new(Argument => $arg, - TicketsObj => $tickets); - $foo->Prepare(); - while ( my $ticket = $foo->Next ) { - # Do something with each ticket we've found - } - - -=head1 DESCRIPTION - - -=head1 METHODS - - -=begin testing - -ok (require RT::Search::Generic); - -=end testing - - -=cut - -package RT::Search::Generic; - -use strict; - -# {{{ sub new -sub new { - my $proto = shift; - my $class = ref($proto) || $proto; - my $self = {}; - bless ($self, $class); - $self->_Init(@_); - return $self; -} -# }}} - -# {{{ sub _Init -sub _Init { - my $self = shift; - my %args = ( - TicketsObj => undef, - Argument => undef, - @_ ); - - $self->{'TicketsObj'} = $args{'TicketsObj'}; - $self->{'Argument'} = $args{'Argument'}; -} -# }}} - -# {{{ sub Argument - -=head2 Argument - -Return the optional argument associated with this Search - -=cut - -sub Argument { - my $self = shift; - return($self->{'Argument'}); -} -# }}} - - -=head2 TicketsObj - -Return the Tickets object passed into this search - -=cut - -sub TicketsObj { - my $self = shift; - return($self->{'TicketsObj'}); -} - -# {{{ sub Describe -sub Describe { - my $self = shift; - return ($self->loc("No description for [_1]", ref $self)); -} -# }}} - -# {{{ sub Prepare -sub Prepare { - my $self = shift; - return(1); -} -# }}} - -eval "require RT::Search::Generic_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Generic_Vendor.pm}); -eval "require RT::Search::Generic_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Generic_Local.pm}); - -1; |