diff options
Diffstat (limited to 'rt/lib/RT/Queues.pm')
-rwxr-xr-x | rt/lib/RT/Queues.pm | 82 |
1 files changed, 45 insertions, 37 deletions
diff --git a/rt/lib/RT/Queues.pm b/rt/lib/RT/Queues.pm index e634a967c..feb349176 100755 --- a/rt/lib/RT/Queues.pm +++ b/rt/lib/RT/Queues.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -46,78 +46,86 @@ # # END BPS TAGGED 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 -- 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; -use RT::SearchBuilder; +use strict; +use warnings; + + use RT::Queue; -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +use base 'RT::SearchBuilder'; +sub Table { 'Queues'} -sub _Init { - my $self = shift; - $self->{'table'} = 'Queues'; - $self->{'primary_key'} = 'id'; +# {{{ sub _Init +sub _Init { + my $self = shift; + $self->{'with_disabled_column'} = 1; + # By default, order by name + $self->OrderBy( ALIAS => 'main', + FIELD => 'Name', + ORDER => 'ASC'); - return ( $self->SUPER::_Init(@_) ); + return ($self->SUPER::_Init(@_)); } +sub Limit { + my $self = shift; + my %args = ( ENTRYAGGREGATOR => 'AND', + @_); + $self->SUPER::Limit(%args); +} -=head2 NewItem -Returns an empty new RT::Queue item +=head2 AddRecord + +Adds a record object to this collection if this user can see. +This is used for filtering objects for both Next and ItemsArrayRef. =cut -sub NewItem { +sub AddRecord { my $self = shift; - return(RT::Queue->new($self->CurrentUser)); -} -RT::Base->_ImportOverlays(); + my $Queue = shift; + return unless $Queue->CurrentUserHasRight('SeeQueue'); -=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. + push @{$self->{'items'}}, $Queue; + $self->{'rows'}++; +} -These overlay files can contain new subs or subs to replace existing subs in this module. -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. +=head2 NewItem -RT::Queues_Overlay, RT::Queues_Vendor, RT::Queues_Local +Returns an empty new RT::Queue item =cut +sub NewItem { + my $self = shift; + return(RT::Queue->new($self->CurrentUser)); +} +RT::Base->_ImportOverlays(); 1; |