diff options
author | bbaetz%student.usyd.edu.au <> | 2002-06-23 07:46:08 +0000 |
---|---|---|
committer | bbaetz%student.usyd.edu.au <> | 2002-06-23 07:46:08 +0000 |
commit | 827b828164394eb38ed4ef5eb0df99e8797021b1 (patch) | |
tree | 254e9b880bd65a6d86ce5bff0bb478a9d780b324 /globals.pl | |
parent | 106f715776c58f3f128cb12c7bb5c1f0a6d42b49 (diff) | |
download | bugs-827b828164394eb38ed4ef5eb0df99e8797021b1.tar bugs-827b828164394eb38ed4ef5eb0df99e8797021b1.tar.gz bugs-827b828164394eb38ed4ef5eb0df99e8797021b1.tar.bz2 bugs-827b828164394eb38ed4ef5eb0df99e8797021b1.tar.xz bugs-827b828164394eb38ed4ef5eb0df99e8797021b1.zip |
Bug 150153 - ConnectToDatabase/quietly_check_login issues pt 2
r=jouni x2
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/globals.pl b/globals.pl index 4f93820ff..f32fc1f3d 100644 --- a/globals.pl +++ b/globals.pl @@ -438,7 +438,6 @@ sub GenerateArrayCode { sub GenerateVersionTable { - ConnectToDatabase(); SendSQL("select value, program from versions order by value"); my @line; my %varray; @@ -1251,7 +1250,6 @@ sub UserInGroup { if ($::usergroupset eq "0") { return 0; } - ConnectToDatabase(); PushGlobalSQLState(); SendSQL("select (bit & $::usergroupset) != 0 from groups where name = " . SqlQuote($groupname)); my $bit = FetchOneColumn(); @@ -1274,7 +1272,6 @@ sub BugInGroup { sub GroupExists { my ($groupname) = (@_); - ConnectToDatabase(); PushGlobalSQLState(); SendSQL("select count(*) from groups where name=" . SqlQuote($groupname)); my $count = FetchOneColumn(); @@ -1287,7 +1284,6 @@ sub GroupExists { # !!! Remove this function when the new group system is implemented! sub GroupNameToBit { my ($groupname) = (@_); - ConnectToDatabase(); PushGlobalSQLState(); SendSQL("SELECT bit FROM groups WHERE name = " . SqlQuote($groupname)); my $bit = FetchOneColumn() || 0; @@ -1301,7 +1297,6 @@ sub GroupNameToBit { sub GroupIsActive { my ($groupbit) = (@_); $groupbit ||= 0; - ConnectToDatabase(); PushGlobalSQLState(); SendSQL("select isactive from groups where bit=$groupbit"); my $isactive = FetchOneColumn(); @@ -1331,7 +1326,6 @@ sub OpenStates { sub RemoveVotes { my ($id, $who, $reason) = (@_); - ConnectToDatabase(); my $whopart = ""; if ($who) { $whopart = " AND votes.who = $who"; |