From 57027d51ead542b621d8c93e4aaec73f791afe16 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Thu, 19 Sep 2002 13:54:42 +0000
Subject: Bug 169561 - Speed up UserInGroup by using cached information. Patch
 by gerv; r=bbaetz, joel, myk.

---
 globals.pl | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 29582e153..3edcab460 100644
--- a/globals.pl
+++ b/globals.pl
@@ -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 {
-- 
cgit v1.2.3-24-g4f1b