New email code wasn't sending to people who had voted for a bug.

Added "My votes" link to footer.  Other minor voting-related fixes.

1 files changed, 5 insertions, 0 deletions

diff --git a/globals.pl b/globals.pl
index 0eab73d63..b8f390537 100644
--- a/globals.pl
+++ b/globals.pl
@@ -280,6 +280,7 @@ sub GenerateVersionTable {
 
     my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
     SendSQL("select product, description, votesperuser, disallownew$mpart from products");
+    $::anyvotesallowed = 0;
     while (@line = FetchSQLData()) {
         my ($p, $d, $votesperuser, $dis, $u) = (@line);
         $::proddesc{$p} = $d;
@@ -293,6 +294,9 @@ sub GenerateVersionTable {
             $::milestoneurl{$p} = $u;
         }
         $::prodmaxvotes{$p} = $votesperuser;
+        if ($votesperuser > 0) {
+            $::anyvotesallowed = 1;
+        }
     }
             
 
@@ -345,6 +349,7 @@ sub GenerateVersionTable {
     }
     print FID GenerateCode('%::proddesc');
     print FID GenerateCode('%::prodmaxvotes');
+    print FID GenerateCode('$::anyvotesallowed');
 
     if ($dotargetmilestone) {
         my $last = Param("nummilestones");