Changeset 21 for trunk/lib/Vote/Model/Vote.pm

Timestamp:

03/08/09 19:54:52 (15 years ago)

Author:

nanardon

Message:

• show ballot list in poll results

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -307 +307 @@
         q{
         select count(*) from ballot where poll = ?
-        and id in (select id from ballot_item)
+        and id in (select id from ballot_item) and invalid = 'false'
         }
     );
@@ -387 +387 @@
 }
 
+sub list_vote_ballot {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select id from ballot where poll = ?
+        order by id
+        }
+    );
+    $sth->execute($voteid);
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res->{id});
+    }
+    @ids
+}
+
+sub list_vote_ballot_needvalid {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select id from ballot where poll = ?
+        and invalid is null order by id
+        }
+    );
+    $sth->execute($voteid);
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res->{id});
+    }
+    @ids
+}
+
+sub ballot_info {
+    my ($self, $ballotid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{ select * from ballot where id = ? }
+    );
+
+    $sth->execute($ballotid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res
+}
+
+sub ballot_items {
+    my ($self, $ballotid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{select *, value as v from ballot_item where id = ?}
+    );
+    $sth->execute($ballotid);
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res);
+    }
+    @ids
+}
+
+
 =head1 AUTHOR