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

Added the ability to email groups and to create groups of groups.

Browse source
This commit is contained in:
JT Smith 2002-11-18 02:17:08 +00:00
parent 8966e401c3
commit e828ff8663
4 changed files with 130 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Privilege.pm
View file

@ -208,7 +208,7 @@ sub insufficient {
=cut
sub isInGroup {
my ($gid, $uid, @data, %group, %user);
my ($gid, $uid, @data, %group, %user, $groupId);
($gid, $uid) = @_;
$uid = $session{user}{userId} if ($uid eq "");
### The "Everyone" group automatically returns true.
@ -254,10 +254,22 @@ sub isInGroup {
}
}
### Admins can do anything!
if ($gid != 3) {
if ($gid != 3 && $session{isInGroup}{3} eq "") {
$session{isInGroup}{3} = isInGroup(3, $uid);
return $session{isInGroup}{3};
if ($session{isInGroup}{3}) {
$session{isInGroup}{$gid} = 1;
return 1;
}
}
### Check for groups of groups.
@data = WebGUI::SQL->buildArray("select groupId from groupGroupings where inGroup=$gid");
foreach $groupId (@data) {
$session{isInGroup}{$groupId} = isInGroup($groupId, $uid);
if ($session{isInGroup}{$groupId}) {
$session{isInGroup}{$gid} = 1;
return 1;
}
}
return 0;
}