X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FPrincipals.pm;h=b909d2499fb2aa7d145512e8720d6b83331110bf;hp=a61cfb96a4810271bfceb01f6ce470d58f2fa437;hb=7322f2afedcc2f427e997d1535a503613a83f088;hpb=673b9a458d9138523026963df6fa3b4683e09bae diff --git a/rt/lib/RT/Principals.pm b/rt/lib/RT/Principals.pm index a61cfb96a..b909d2499 100644 --- a/rt/lib/RT/Principals.pm +++ b/rt/lib/RT/Principals.pm @@ -1,38 +1,40 @@ # BEGIN BPS TAGGED BLOCK {{{ -# +# # COPYRIGHT: -# -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC -# -# +# +# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC +# +# # (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. -# -# +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301 or visit their web page on the internet at +# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. +# +# # 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 @@ -41,97 +43,45 @@ # 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 }}} -# Autogenerated by DBIx::SearchBuilder factory (by ) -# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. -# -# !! DO NOT EDIT THIS FILE !! # - -use strict; - +# END BPS TAGGED BLOCK }}} =head1 NAME - RT::Principals -- Class Description - + RT::Principals - a collection of RT::Principal objects + =head1 SYNOPSIS - use RT::Principals + use RT::Principals; =head1 DESCRIPTION =head1 METHODS -=cut - -package RT::Principals; -use RT::SearchBuilder; -use RT::Principal; -use vars qw( @ISA ); -@ISA= qw(RT::SearchBuilder); +=cut -sub _Init { - my $self = shift; - $self->{'table'} = 'Principals'; - $self->{'primary_key'} = 'id'; - +package RT::Principals; - return ( $self->SUPER::_Init(@_) ); -} +use strict; +use warnings; -=head2 NewItem +use base 'RT::SearchBuilder'; -Returns an empty new RT::Principal item +use RT::Principal; -=cut +sub Table { 'Principals'} -sub NewItem { +sub _Init { my $self = shift; - return(RT::Principal->new($self->CurrentUser)); + $self->{'with_disabled_column'} = 1; + return ( $self->SUPER::_Init(@_) ); } - eval "require RT::Principals_Overlay"; - if ($@ && $@ !~ qr{^Can't locate RT/Principals_Overlay.pm}) { - die $@; - }; - - eval "require RT::Principals_Vendor"; - if ($@ && $@ !~ qr{^Can't locate RT/Principals_Vendor.pm}) { - die $@; - }; - - eval "require RT::Principals_Local"; - if ($@ && $@ !~ qr{^Can't locate RT/Principals_Local.pm}) { - die $@; - }; - - - - -=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. - -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::Principals_Overlay, RT::Principals_Vendor, RT::Principals_Local - -=cut - +RT::Base->_ImportOverlays(); 1;