X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FPrincipals.pm;h=b909d2499fb2aa7d145512e8720d6b83331110bf;hp=ef2c4d7377a202815ebf15d4de0db400b24cca38;hb=7322f2afedcc2f427e997d1535a503613a83f088;hpb=b5c4237a34aef94976bc343c8d9e138664fc3984 diff --git a/rt/lib/RT/Principals.pm b/rt/lib/RT/Principals.pm index ef2c4d737..b909d2499 100644 --- a/rt/lib/RT/Principals.pm +++ b/rt/lib/RT/Principals.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -46,78 +46,42 @@ # # 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; - - =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(@_) ); } -RT::Base->_ImportOverlays(); - -=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;