Changeset 215 for trunk/lib

Timestamp:

04/17/09 18:52:21 (15 years ago)

Author:

nanardon

Message:

• process data in results

File:

• trunk/lib/Vote/DB/Poll/Results.pm (modified) (1 diff)

trunk/lib/Vote/DB/Poll/Results.pm

@@ -134 +134 @@
     $sth->execute($self->voteid, $self->voteid);
     my @results;
+    my $abs_maj = $self->absolute_majority;
+    my $wanted_count = $self->info('choice_count');
+    my $voice_count = $self->voices_ballot_count;
     while (my $res = $sth->fetchrow_hashref) {
+        if ($res->{count} >= $abs_maj) {
+            $res->{abs_maj} = 1;
+        }
+        if (scalar(@results) < $wanted_count) {
+            $res->{elected} = 1 if ($res->{count});
+        } elsif (scalar(@results)) {
+            $res->{elected} = $results[-1]->{elected}
+                if($res->{count} == $results[-1]->{count});
+        }
+        $res->{voices_percent} = $res->{count} / $voice_count * 100
+            if($voice_count); # avoid divide by 0
+
         push(@results, $res);
     }