From 3ef62a0570055da710328937e7f65dbb2c027c62 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 12 Aug 2002 06:17:09 +0000 Subject: import rt 2.0.14 --- rt/lib/RT/GroupMembers.pm | 73 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100755 rt/lib/RT/GroupMembers.pm (limited to 'rt/lib/RT/GroupMembers.pm') diff --git a/rt/lib/RT/GroupMembers.pm b/rt/lib/RT/GroupMembers.pm new file mode 100755 index 000000000..a90a2a899 --- /dev/null +++ b/rt/lib/RT/GroupMembers.pm @@ -0,0 +1,73 @@ +#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/GroupMembers.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ + +=head1 NAME + + RT::GroupMembers - a collection of RT::GroupMember objects + +=head1 SYNOPSIS + + use RT::GroupMembers; + +=head1 DESCRIPTION + + +=head1 METHODS + + +=begin testing + +ok (require RT::TestHarness); +ok (require RT::GroupMembers); + +=end testing + +=cut + +package RT::GroupMembers; +use RT::EasySearch; +use RT::GroupMember; + +@ISA= qw(RT::EasySearch); + + +# {{{ sub _Init +sub _Init { + my $self = shift; + + $self->{'table'} = "GroupMembers"; + $self->{'primary_key'} = "id"; + return ( $self->SUPER::_Init(@_) ); +} +# }}} + +# {{{ sub LimitToGroup + +=head2 LimitToGroup + +Takes a group id as its only argument. Limits the current search to that +group object + +=cut + +sub LimitToGroup { + my $self = shift; + my $group = shift; + + return ($self->Limit( + VALUE => "$group", + FIELD => 'GroupId', + ENTRYAGGREGATOR => 'OR', + )); + +} +# }}} + +# {{{ sub NewItem + +sub NewItem { + my $self = shift; + return(RT::GroupMember->new($self->CurrentUser)) +} + +# }}} +1; -- cgit v1.2.1 From ded0451e9582df33cae6099a2fb72b4ea25076cf Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 15 Jul 2003 13:30:43 +0000 Subject: reverting to vendor branch rt 3.0.4, hopefully --- rt/lib/RT/GroupMembers.pm | 124 +++++++++++++++++++++++++++++++--------------- 1 file changed, 83 insertions(+), 41 deletions(-) (limited to 'rt/lib/RT/GroupMembers.pm') diff --git a/rt/lib/RT/GroupMembers.pm b/rt/lib/RT/GroupMembers.pm index a90a2a899..31cb9536f 100755 --- a/rt/lib/RT/GroupMembers.pm +++ b/rt/lib/RT/GroupMembers.pm @@ -1,73 +1,115 @@ -#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/GroupMembers.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ +# BEGIN LICENSE BLOCK +# +# Copyright (c) 1996-2003 Jesse Vincent +# +# (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 ) +# WARNING: THIS FILE IS AUTOGENERATED. ALL CHANGES TO THIS FILE WILL BE LOST. +# +# !! DO NOT EDIT THIS FILE !! +# + +use strict; -=head1 NAME - RT::GroupMembers - a collection of RT::GroupMember objects +=head1 NAME + RT::GroupMembers -- Class Description + =head1 SYNOPSIS - use RT::GroupMembers; + use RT::GroupMembers =head1 DESCRIPTION =head1 METHODS - -=begin testing - -ok (require RT::TestHarness); -ok (require RT::GroupMembers); - -=end testing - =cut package RT::GroupMembers; -use RT::EasySearch; + +use RT::SearchBuilder; use RT::GroupMember; -@ISA= qw(RT::EasySearch); +use vars qw( @ISA ); +@ISA= qw(RT::SearchBuilder); -# {{{ sub _Init -sub _Init { - my $self = shift; - - $self->{'table'} = "GroupMembers"; - $self->{'primary_key'} = "id"; - return ( $self->SUPER::_Init(@_) ); +sub _Init { + my $self = shift; + $self->{'table'} = 'GroupMembers'; + $self->{'primary_key'} = 'id'; + + + return ( $self->SUPER::_Init(@_) ); } -# }}} -# {{{ sub LimitToGroup -=head2 LimitToGroup +=item NewItem -Takes a group id as its only argument. Limits the current search to that -group object +Returns an empty new RT::GroupMember item =cut -sub LimitToGroup { +sub NewItem { my $self = shift; - my $group = shift; + return(RT::GroupMember->new($self->CurrentUser)); +} - return ($self->Limit( - VALUE => "$group", - FIELD => 'GroupId', - ENTRYAGGREGATOR => 'OR', - )); + eval "require RT::GroupMembers_Overlay"; + if ($@ && $@ !~ qr{^Can't locate RT/GroupMembers_Overlay.pm}) { + die $@; + }; -} -# }}} + eval "require RT::GroupMembers_Vendor"; + if ($@ && $@ !~ qr{^Can't locate RT/GroupMembers_Vendor.pm}) { + die $@; + }; -# {{{ sub NewItem + eval "require RT::GroupMembers_Local"; + if ($@ && $@ !~ qr{^Can't locate RT/GroupMembers_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. + +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::GroupMembers_Overlay, RT::GroupMembers_Vendor, RT::GroupMembers_Local + +=cut -sub NewItem { - my $self = shift; - return(RT::GroupMember->new($self->CurrentUser)) -} -# }}} 1; -- cgit v1.2.1