Zobrazime nadpolovicni podporu

lib/RVVote/Controller/Evaluation.pm

@@ -31,8 +31,10 @@ sub process {
         }
     }
 
-    my $total = ( scalar @ballots );
-    my $half  = $total / 2;
+    my $total          = ( scalar @ballots );
+    my $half           = $total / 2;
+    my $more_than_half = int($half) + 1;
+
     my @log;
 
     $c->stash->{ballots} = \@ballots;
@@ -61,7 +63,7 @@ sub process {
     }
 
     push @log, {
-        title => "Počáteční rozdělení ($total listků)", 
+        title => "Počáteční rozdělení ($total listků, nadpoloviční podpora $more_than_half)", 
         data  => Dump $r, 
     };