Changeset 15 for trunk/lib

Timestamp:

03/07/09 16:30:29 (15 years ago)

Author:

nanardon

Message:

• show vote results

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (7 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -4 +4 @@
 use warnings;
 use base 'Catalyst::Model';
+use Vote;
 use DBI;
 
@@ -36 +37 @@
 sub db { $_[0]->{db} }
 
-sub list_running_vote {
+sub list_comming_vote {
     my ($self) = @_;
 
     my $sth = $self->db->prepare_cached(
         q{
-        select id from poll where start < now() and "end" > now()
+        select id from poll where
+        (start > now() and "end" > now()) or
+        "end" is null or start is null
         }
     );
@@ -54 +57 @@
 }
 
+
+sub list_running_vote {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select id from poll where start < now() and "end" > now()
+        }
+    );
+
+    $sth->execute;
+    my @id;
+    while(my $res = $sth->fetchrow_hashref) {
+        push(@id, $res->{id});
+    }
+
+    @id
+}
+
+sub list_closed_vote {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select id from poll where
+        start < now() and "end" < now()
+        }
+    );
+
+    $sth->execute;
+    my @id;
+    while(my $res = $sth->fetchrow_hashref) {
+        push(@id, $res->{id});
+    }
+
+    @id
+}
+
 sub vote_status {
     my ($self, $id) = @_;
@@ -59 +100 @@
     my $sth = $self->db->prepare_cached(
         q{
-        select start < now() as before
-               "end"   > now() as after
+        select start > now() as before,
+               "end" < now() as after
+        from poll
         where id = ?
         }
@@ -110 +152 @@
 }
 
+sub vote_signing_count {
+    my ($self, $id) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from voting
+        where poll = ?
+        }
+    );
+    $sth->execute($id);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
 sub vote_choices {
     my ($self, $id) = @_;
@@ -238 +295 @@
 }
 
+sub ballot_count_nonull {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from ballot where poll = ?
+        and id in (select id from ballot_item)
+        }
+    );
+
+    $sth->execute($voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    warn $res->{count};
+    $res->{count}
+}
+
 sub auth_voting {
     my ($self, $poll, $user, $password) = @_;
@@ -269 +343 @@
 # Requete de decompte des voix:
 
-# select count(ballot.id), value from ballot left join ballot_item
-# on ballot.id = ballot_item.id where ballot.poll = 1 and invalid = 'false'
-# group by value
-# order by count
+sub vote_results_count {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare(
+        q{
+        select count(ballot.id), value from ballot left join ballot_item
+        on ballot.id = ballot_item.id where ballot.poll = ? and invalid = 'false'
+        group by value
+        order by count
+        }
+    );
+    $sth->execute($voteid);
+    my @results;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@results, $res);
+    }
+    @results;
+}
+
+sub vote_results_nonull {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare(
+        q{
+        select count(ballot.id), value from ballot join ballot_item
+        on ballot.id = ballot_item.id where ballot.poll = ? and invalid = 'false'
+        group by value
+        order by count desc
+        }
+    );
+    $sth->execute($voteid);
+    my @results;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@results, $res);
+    }
+    \@results;
+}
 
 =head1 AUTHOR