oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleaned up Group.t so that diagnostics when failing are correct.

Browse source 
Fixed two bugs in Group.pm
1) If recursive was set, and no recursive cache was present but a
direct cache was available, it would be returned.  That's wrong.
2) Added a check in addGroups so that self cannot be added to itself.
This commit is contained in:
Colin Kuskie 2006-03-15 06:27:47 +00:00
parent 726f7c61af
commit 0197f6f1bd
2 changed files with 18 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Group.pm
View file

@ -105,7 +105,8 @@ Adds groups to this group.
=head3 groups
An array reference containing the list of group ids to add.
An array reference containing the list of group ids to add. Group Visitor may
not be added to any group. Groups may not be added to themselves.
=cut
@ -115,6 +116,7 @@ sub addGroups {
$self->session->stow->delete("isInGroup");
foreach my $gid (@{$groups}) {
next if ($gid eq '1');
next if ($gid eq $self->getId);
my ($isIn) = $self->session->db->quickArray("select count(*) from groupGroupings where groupId=? and inGroup=?", [$gid, $self->getId]);
my $group = WebGUI::Group->new($self->session, $gid);
my $recursive = isIn($self->getId, @{$group->getGroupsIn(1)});
@ -122,6 +124,7 @@ sub addGroups {
$self->session->db->write("insert into groupGroupings (groupId,inGroup) values (?,?)",[$gid, $self->getId]);
}
}
$self->session->stow->delete("gotGroupsInGroup");
return 1;
}
@ -501,7 +504,8 @@ sub getGroupsIn {
my $gotGroupsInGroup = $self->session->stow->get("gotGroupsInGroup");
if ($isRecursive && exists($gotGroupsInGroup->{recursive}{$self->getId})) {
return $gotGroupsInGroup->{recursive}{$self->getId};
} elsif (exists $gotGroupsInGroup->{direct}{$self->getId}) {
}
elsif (!$isRecursive and exists($gotGroupsInGroup->{direct}{$self->getId})) {
return $gotGroupsInGroup->{direct}{$self->getId};
}
my $groups = $self->session->db->buildArrayRef("select groupId from groupGroupings where inGroup=?",[$self->getId]);
@ -518,6 +522,7 @@ sub getGroupsIn {
my %unique = map { $_ => 1 } @groupsOfGroups;
@groupsOfGroups = keys %unique;
$gotGroupsInGroup->{recursive}{$self->getId} = \@groupsOfGroups;
$self->session->stow->set("gotGroupsInGroup", $gotGroupsInGroup);
return \@groupsOfGroups;
}
$gotGroupsInGroup->{direct}{$self->getId} = $groups;