1 # $Header: /home/cvs/cvsroot/freeside/rt/lib/RT/GroupMember.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
2 # Copyright 2000 Jesse Vincent <jesse@fsck.com>
3 # Released under the terms of the GNU Public License
7 RT::GroupMember - a member of an RT Group
11 RT::GroupMember should never be called directly. It should generally
12 only be accessed through the helper functions in RT::Group;
24 ok (require RT::TestHarness);
25 ok (require RT::GroupMember);
32 package RT::GroupMember;
40 $self->{'table'} = "GroupMembers";
41 return($self->SUPER::_Init(@_));
53 return $self->SUPER::_Accessible(@_, %Cols);
59 # a helper method for Add
63 my %args = ( GroupId => undef,
68 unless( $self->CurrentUser->HasSystemRight('AdminGroups')) {
69 return (0, 'Permission Denied');
72 return ($self->SUPER::Create(GroupId => $args{'GroupId'},
73 UserId => $args{'UserId'}))
81 Takes a paramhash of UserId and GroupId. makes that user a memeber
88 return ($self->Create(@_));
96 Takes no arguments. deletes the currently loaded member from the
103 unless ($self->CurrentUser->HasSystemRight('AdminGroups')) {
104 return (0, 'Permission Denied');
106 return($self->SUPER::Delete(@_));
115 Returns an RT::User object for the user specified by $self->UserId
121 unless (defined ($self->{'user_obj'})) {
122 $self->{'user_obj'} = new RT::User($self->CurrentUser);
123 $self->{'user_obj'}->Load($self->UserId);
125 return($self->{'user_obj'});
131 unless ($self->CurrentUser->HasSystemRight('AdminGroups')) {
132 return (0, 'Permission Denied');
134 return($self->SUPER::_Set(@_));