Added the ability for users to "vote" on which bugs they think should

be fixed.

1 files changed, 27 insertions, 2 deletions

diff --git a/globals.pl b/globals.pl
index 4f5b9a226..ccb0e8167 100644
--- a/globals.pl
+++ b/globals.pl
@@ -236,9 +236,9 @@ sub GenerateVersionTable {
     my $dotargetmilestone = Param("usetargetmilestone");
 
     my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
-    SendSQL("select product, description, disallownew$mpart from products");
+    SendSQL("select product, description, votesperuser, disallownew$mpart from products");
     while (@line = FetchSQLData()) {
-        my ($p, $d, $dis, $u) = (@line);
+        my ($p, $d, $votesperuser, $dis, $u) = (@line);
         $::proddesc{$p} = $d;
         if ($dis) {
             # Special hack.  Stomp on the description and make it "0" if we're
@@ -249,6 +249,7 @@ sub GenerateVersionTable {
         if ($dotargetmilestone) {
             $::milestoneurl{$p} = $u;
         }
+        $::prodmaxvotes{$p} = $votesperuser;
     }
             
 
@@ -300,6 +301,7 @@ sub GenerateVersionTable {
         print FID GenerateCode('@::legal_' . $i);
     }
     print FID GenerateCode('%::proddesc');
+    print FID GenerateCode('%::prodmaxvotes');
 
     if ($dotargetmilestone) {
         my $last = Param("nummilestones");
@@ -515,6 +517,29 @@ sub UserInGroup {
 }
 
 
+sub RemoveVotes {
+    my ($id, $reason) = (@_);
+    ConnectToDatabase();
+    SendSQL("select profiles.login_name from votes, profiles where votes.bug_id = $id and profiles.userid = votes.who");
+    my @list;
+    while (MoreSQLData()) {
+        push(@list, FetchOneColumn());
+    }
+    if (0 < @list) {
+        if (open(SENDMAIL, "|/usr/lib/sendmail -t")) {
+            my %substs;
+            $substs{"to"} = join(',', @list);
+            $substs{"bugid"} = $id;
+            $substs{"reason"} = $reason;
+            print SENDMAIL PerformSubsts(Param("voteremovedmail"), \%substs);
+            close SENDMAIL;
+        }
+        SendSQL("delete from votes where bug_id = $id");
+    }
+}
+
+
+
 sub Param {
     my ($value) = (@_);
     if (defined $::param{$value}) {