Bug 328434: Move GroupIsActive into post_bug.cgi

Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=wicked, a=justdave

webtools/bugzilla/globals.pl

@@ -526,20 +526,6 @@ sub GroupIdToName {
     return $name;
 }
 
-
-# Determines whether or not a group is active by checking 
-# the "isactive" column for the group in the "groups" table.
-# Note: This function selects groups by id rather than by name.
-sub GroupIsActive {
-    my ($groupid) = (@_);
-    $groupid ||= 0;
-    PushGlobalSQLState();
-    SendSQL("SELECT isactive FROM groups WHERE id=$groupid");
-    my $isactive = FetchOneColumn();
-    PopGlobalSQLState();
-    return $isactive;
-}
-
 # Determines if the given bug_status string represents an "Opened" bug.  This
 # routine ought to be parameterizable somehow, as people tend to introduce
 # new states into Bugzilla.

webtools/bugzilla/post_bug.cgi

@@ -55,6 +55,26 @@ my $dbh = Bugzilla->dbh;
 my $template = Bugzilla->template;
 my $vars = {};
 
+######################################################################
+# Subroutines
+######################################################################
+
+# Determines whether or not a group is active by checking
+# the "isactive" column for the group in the "groups" table.
+# Note: This function selects groups by id rather than by name.
+sub GroupIsActive {
+    my ($group_id) = @_;
+    $group_id ||= 0;
+    detaint_natural($group_id);
+    my ($is_active) = Bugzilla->dbh->selectrow_array(
+        "SELECT isactive FROM groups WHERE id = ?", undef, $group_id);
+    return $is_active;
+}
+
+######################################################################
+# Main Script
+######################################################################
+
 # do a match on the fields if applicable
 
 &Bugzilla::User::match_field ($cgi, {