1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Groups.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
5 RT::Groups - a collection of RT::Group objects
10 my $groups = $RT::Groups->new($CurrentUser);
11 $groups->LimitToReal();
12 while (my $group = $groups->Next()) {
13 print $group->Id ." is a group id\n";
24 ok (require RT::TestHarness);
25 ok (require RT::Groups);
35 @ISA= qw(RT::EasySearch);
41 $self->{'table'} = "Groups";
42 $self->{'primary_key'} = "id";
44 $self->OrderBy( ALIAS => 'main',
49 return ( $self->SUPER::_Init(@_));
57 Make this groups object return only "real" groups, which can be
58 granted rights and have members assigned to them
65 return ($self->Limit( FIELD => 'Pseudo',
72 # {{{ sub LimitToPseudo
76 Make this groups object return only "pseudo" groups, which can be
77 granted rights but whose membership lists are determined dynamically.
84 return ($self->Limit( FIELD => 'Pseudo',
94 return (RT::Group->new($self->CurrentUser));