diff options
Diffstat (limited to 'rt/lib/RT/Queues.pm')
| -rwxr-xr-x | rt/lib/RT/Queues.pm | 162 |
1 files changed, 85 insertions, 77 deletions
diff --git a/rt/lib/RT/Queues.pm b/rt/lib/RT/Queues.pm index 60aec9086..ab58d8d6d 100755 --- a/rt/lib/RT/Queues.pm +++ b/rt/lib/RT/Queues.pm @@ -1,115 +1,123 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK -# Autogenerated by DBIx::SearchBuilder factory (by <jesse@bestpractical.com>) -# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. -# -# !! DO NOT EDIT THIS FILE !! -# - -use strict; - +#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Queues.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ =head1 NAME - RT::Queues -- Class Description - + RT::Queues - a collection of RT::Queue objects + =head1 SYNOPSIS - use RT::Queues + use RT::Queues; =head1 DESCRIPTION =head1 METHODS -=cut -package RT::Queues; +=begin testing -use RT::SearchBuilder; -use RT::Queue; +ok (require RT::TestHarness); +ok (require RT::Queues); -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +=end testing +=cut -sub _Init { - my $self = shift; - $self->{'table'} = 'Queues'; - $self->{'primary_key'} = 'id'; +package RT::Queues; +use RT::EasySearch; +@ISA= qw(RT::EasySearch); + + +# {{{ sub _Init +sub _Init { + my $self = shift; + $self->{'table'} = "Queues"; + $self->{'primary_key'} = "id"; + # By default, order by name + $self->OrderBy( ALIAS => 'main', + FIELD => 'Name', + ORDER => 'ASC'); - return ( $self->SUPER::_Init(@_) ); + return ($self->SUPER::_Init(@_)); } +# }}} +# {{{ sub _DoSearch -=item NewItem +=head2 _DoSearch -Returns an empty new RT::Queue item + A subclass of DBIx::SearchBuilder::_DoSearch that makes sure that _Disabled rows never get seen unless +we're explicitly trying to see them. =cut -sub NewItem { +sub _DoSearch { my $self = shift; - return(RT::Queue->new($self->CurrentUser)); + + #unless we really want to find disabled rows, make sure we\'re only finding enabled ones. + unless($self->{'find_disabled_rows'}) { + $self->LimitToEnabled(); + } + + return($self->SUPER::_DoSearch(@_)); + } - eval "require RT::Queues_Overlay"; - if ($@ && $@ !~ qr{^Can't locate RT/Queues_Overlay.pm}) { - die $@; - }; - - eval "require RT::Queues_Vendor"; - if ($@ && $@ !~ qr{^Can't locate RT/Queues_Vendor.pm}) { - die $@; - }; - - eval "require RT::Queues_Local"; - if ($@ && $@ !~ qr{^Can't locate RT/Queues_Local.pm}) { - die $@; - }; +# }}} + +# {{{ sub Limit +sub Limit { + my $self = shift; + my %args = ( ENTRYAGGREGATOR => 'AND', + @_); + $self->SUPER::Limit(%args); +} +# }}} +# {{{ sub NewItem +sub NewItem { + my $self = shift; + my $item; + use RT::Queue; + $item = new RT::Queue($self->CurrentUser); + return($item); +} +# }}} -=head1 SEE ALSO - -This class allows "overlay" methods to be placed -into the following files _Overlay is for a System overlay by the original author, -_Vendor is for 3rd-party vendor add-ons, while _Local is for site-local customizations. - -These overlay files can contain new subs or subs to replace existing subs in this module. - -If you'll be working with perl 5.6.0 or greater, each of these files should begin with the line - - no warnings qw(redefine); +# {{{ sub Next -so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. +=head2 Next -RT::Queues_Overlay, RT::Queues_Vendor, RT::Queues_Local +Returns the next queue that this user can see. =cut - + +sub Next { + my $self = shift; + + + my $Queue = $self->SUPER::Next(); + if ((defined($Queue)) and (ref($Queue))) { + + if ($Queue->CurrentUserHasRight('SeeQueue')) { + return($Queue); + } + + #If the user doesn't have the right to show this queue + else { + return($self->Next()); + } + } + #if there never was any queue + else { + return(undef); + } + +} +# }}} 1; + |