diff options
Diffstat (limited to 'rt/lib/RT/Queues.pm')
| -rwxr-xr-x | rt/lib/RT/Queues.pm | 162 |
1 files changed, 77 insertions, 85 deletions
diff --git a/rt/lib/RT/Queues.pm b/rt/lib/RT/Queues.pm index ab58d8d..60aec90 100755 --- a/rt/lib/RT/Queues.pm +++ b/rt/lib/RT/Queues.pm @@ -1,123 +1,115 @@ -#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Queues.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ +# 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; -=head1 NAME - RT::Queues - a collection of RT::Queue objects +=head1 NAME + RT::Queues -- Class Description + =head1 SYNOPSIS - use RT::Queues; + use RT::Queues =head1 DESCRIPTION =head1 METHODS - -=begin testing - -ok (require RT::TestHarness); -ok (require RT::Queues); - -=end testing - =cut package RT::Queues; -use RT::EasySearch; -@ISA= qw(RT::EasySearch); +use RT::SearchBuilder; +use RT::Queue; -# {{{ sub _Init -sub _Init { - my $self = shift; - $self->{'table'} = "Queues"; - $self->{'primary_key'} = "id"; +use vars qw( @ISA ); +@ISA= qw(RT::SearchBuilder); - # By default, order by name - $self->OrderBy( ALIAS => 'main', - FIELD => 'Name', - ORDER => 'ASC'); - return ($self->SUPER::_Init(@_)); +sub _Init { + my $self = shift; + $self->{'table'} = 'Queues'; + $self->{'primary_key'} = 'id'; + + + return ( $self->SUPER::_Init(@_) ); } -# }}} -# {{{ sub _DoSearch -=head2 _DoSearch +=item NewItem - A subclass of DBIx::SearchBuilder::_DoSearch that makes sure that _Disabled rows never get seen unless -we're explicitly trying to see them. +Returns an empty new RT::Queue item =cut -sub _DoSearch { +sub NewItem { my $self = shift; - - #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(@_)); - + return(RT::Queue->new($self->CurrentUser)); } -# }}} - + eval "require RT::Queues_Overlay"; + if ($@ && $@ !~ qr{^Can't locate RT/Queues_Overlay.pm}) { + die $@; + }; -# {{{ sub Limit -sub Limit { - my $self = shift; - my %args = ( ENTRYAGGREGATOR => 'AND', - @_); - $self->SUPER::Limit(%args); -} -# }}} + eval "require RT::Queues_Vendor"; + if ($@ && $@ !~ qr{^Can't locate RT/Queues_Vendor.pm}) { + die $@; + }; -# {{{ sub NewItem -sub NewItem { - my $self = shift; - my $item; + eval "require RT::Queues_Local"; + if ($@ && $@ !~ qr{^Can't locate RT/Queues_Local.pm}) { + die $@; + }; - use RT::Queue; - $item = new RT::Queue($self->CurrentUser); - return($item); -} -# }}} -# {{{ sub Next -=head2 Next -Returns the next queue that this user can see. +=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); + +so that perl does not kick and scream when you redefine a subroutine or variable in your overlay. + +RT::Queues_Overlay, RT::Queues_Vendor, RT::Queues_Local =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; +1; |