summaryrefslogtreecommitdiff
path: root/rt/lib/RT/Groups.pm
blob: f44f1fdb3b39fb3d59f2ab8dc24adbe2a55ad0ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Groups.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $

=head1 NAME

  RT::Groups - a collection of RT::Group objects

=head1 SYNOPSIS

  use RT::Groups;
  my $groups = $RT::Groups->new($CurrentUser);
  $groups->LimitToReal();
  while (my $group = $groups->Next()) {
     print $group->Id ." is a group id\n";
  }

=head1 DESCRIPTION


=head1 METHODS


=begin testing

ok (require RT::TestHarness);
ok (require RT::Groups);

=end testing

=cut

package RT::Groups;
use RT::EasySearch;
use RT::Groups;

@ISA= qw(RT::EasySearch);

# {{{ sub _Init

sub _Init { 
  my $self = shift;
  $self->{'table'} = "Groups";
  $self->{'primary_key'} = "id";

  $self->OrderBy( ALIAS => 'main',
		  FIELD => 'Name',
		  ORDER => 'ASC');


  return ( $self->SUPER::_Init(@_));
}
# }}}

# {{{ LimitToReal

=head2 LimitToReal

Make this groups object return only "real" groups, which can be
granted rights and have members assigned to them

=cut

sub LimitToReal {
    my $self = shift;

    return ($self->Limit( FIELD => 'Pseudo',
			  VALUE => '0',
			  OPERATOR => '='));

}
# }}}

# {{{ sub LimitToPseudo

=head2 LimitToPseudo

Make this groups object return only "pseudo" groups, which can be
granted rights but whose membership lists are determined dynamically.

=cut
  
  sub LimitToPseudo {
    my $self = shift;

    return ($self->Limit( FIELD => 'Pseudo',
			  VALUE => '1',
			  OPERATOR => '='));

}
# }}}

# {{{ sub NewItem 
sub NewItem  {
  my $self = shift;
  return (RT::Group->new($self->CurrentUser));
}
# }}}


1;