Changeset 193 for trunk/lib/Vote/DB

Timestamp:

04/14/09 18:19:40 (15 years ago)

Author:

nanardon

Message:

• add new objects for poll results

Location:

trunk/lib/Vote/DB

Files:

• Poll (added)
• Poll.pm (modified) (2 diffs)
• Poll/Results.pm (added)

trunk/lib/Vote/DB/Poll.pm

@@ -527 +527 @@
 }
 
-sub ballot_count_nonull {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare_cached(
-        q{
-        select count(*) from ballot where poll = ?
-        and id in (select id from ballot_item) and
-        (invalid = 'false' or invalid is null)
-        }
-    );
-
-    $sth->execute($self->voteid);
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{count}
-}
-
 sub voting_info_id {
     my ($self, $mail) = @_;
@@ -601 +584 @@
 
     return 1;
-}
-
-sub results_count {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare(
-        q{
-        select count(ballot.id), value from 
-        (select ballot.id, coalesce(corrected, value) as "value" from ballot left join ballot_item
-        on ballot.id = ballot_item.id where ballot.poll = ? and (invalid = 'false'or invalid is null)
-        group by ballot.id, coalesce(corrected, value)) as ballot
-        group by value
-        order by count desc, value
-        }
-    );
-    $sth->execute($self->voteid);
-    my @results;
-    while (my $res = $sth->fetchrow_hashref) {
-        push(@results, $res);
-    }
-    @results;
-}
-
-sub results_nonull {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare(
-        q{
-        select count(ballot.id), value from 
-        (select ballot.id, coalesce(corrected, value) as "value" from ballot join ballot_item
-        on ballot.id = ballot_item.id where ballot.poll = ? and (invalid = 'false'or invalid is null)
-        group by ballot.id, coalesce(corrected, value)) as ballot
-        group by value
-        order by count desc, value
-        }
-    );
-    $sth->execute($self->voteid);
-    my @results;
-    while (my $res = $sth->fetchrow_hashref) {
-        push(@results, $res);
-    }
-    \@results;
 }