diff options
Diffstat (limited to 'rt/lib/RT/GroupMembers.pm')
-rwxr-xr-x | rt/lib/RT/GroupMembers.pm | 73 |
1 files changed, 73 insertions, 0 deletions
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; |