Bug 169561 - Speed up UserInGroup by using cached information. Patch by gerv; r=bbaetz, joel, myk.

This commit is contained in:
gerv%gerv.net 2002-09-19 06:54:42 +00:00
parent bd5fa313f7
commit 9463bbea73

View File

@ -1186,21 +1186,8 @@ sub SqlQuote {
return "'$str'";
}
sub UserInGroup {
my ($groupname) = (@_);
if ($::usergroupset eq "0") {
return 0;
}
PushGlobalSQLState();
SendSQL("select (bit & $::usergroupset) != 0 from groups where name = " . SqlQuote($groupname));
my $bit = FetchOneColumn();
PopGlobalSQLState();
if ($bit) {
return 1;
}
return 0;
return $::vars->{'user'}{'groups'}{$_[0]};
}
sub BugInGroup {