#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
use strict;
use warnings;
+use base 'RT::SearchBuilder';
use RT::CachedGroupMember;
-use base 'RT::SearchBuilder';
-
sub Table { 'CachedGroupMembers'}
# {{{ LimitToUsers
sub LimitToUsers {
my $self = shift;
- my $principals = $self->NewAlias('Principals');
- $self->Join( ALIAS1 => 'main', FIELD1 => 'MemberId',
- ALIAS2 => $principals, FIELD2 =>'id');
+ my $principals = $self->Join(
+ ALIAS1 => 'main', FIELD1 => 'MemberId',
+ TABLE2 => 'Principals', FIELD2 =>'id'
+ );
$self->Limit( ALIAS => $principals,
FIELD => 'PrincipalType',
sub LimitToGroups {
my $self = shift;
- my $principals = $self->NewAlias('Principals');
- $self->Join( ALIAS1 => 'main', FIELD1 => 'MemberId',
- ALIAS2 => $principals, FIELD2 =>'id');
+ my $principals = $self->Join(
+ ALIAS1 => 'main', FIELD1 => 'MemberId',
+ TABLE2 => 'Principals', FIELD2 =>'id'
+ );
+
$self->Limit( ALIAS => $principals,
FIELD => 'PrincipalType',
VALUE => $member || '0',
FIELD => 'MemberId',
ENTRYAGGREGATOR => 'OR',
- QUOTEVALUE => 0
+ QUOTEVALUE => 0
));
}
# }}}
-=head2 NewItem
-
-Returns an empty new RT::CachedGroupMember item
-
-=cut
-
-sub NewItem {
- my $self = shift;
- return(RT::CachedGroupMember->new($self->CurrentUser));
-}
RT::Base->_ImportOverlays();
1;