Changeset 214 for trunk/lib/Vote/DB/Poll.pm

Timestamp:

04/17/09 15:32:47 (15 years ago)

Author:

nanardon

Message:

• more results function, support empty ballots in voices count

File:

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

trunk/lib/Vote/DB/Poll.pm

@@ -513 +513 @@
 }
 
-sub voting_count {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare_cached(
-        q{
-        select count(*) from voting
-        where poll = ?
-        }
-    );
-    $sth->execute($self->voteid);
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{count}
-}
-
-sub signing_count {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare_cached(
-        q{
-        select count(*) from signing join voting
-        on voting.key = signing.key where poll = ?
-        }
-    );
-
-    $sth->execute($self->voteid);
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{count}
-}
-
 sub is_crypted {
     my ($self) = @_;
     return $self->info->{public_key} ? 1 : 0;
-}
-
-sub ballot_count {
-    my ($self) = @_;
-    return $self->is_crypted
-        ? $self->ballot_count_crypt
-        : $self->ballot_count_clear;
-}
-
-sub ballot_count_clear {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare_cached(
-        q{select count(*) from ballot where poll = ?}
-    );
-
-    $sth->execute($self->voteid);
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{count}
-}
-
-sub ballot_count_crypt {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare_cached(
-        q{select count(*) from ballot_enc where poll = ?}
-    );
-
-    $sth->execute($self->voteid);
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{count}
 }
 
@@ -890 +826 @@
     $privkey
 }
+
+#########
+# Count #
+#########
+
+sub ballot_count {
+    my ($self) = @_;
+    return $self->is_crypted
+        ? $self->ballot_count_crypt
+        : $self->ballot_count_clear;
+}
+
+sub ballot_count_clear {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{select count(*) from ballot where poll = ?}
+    );
+
+    $sth->execute($self->voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
+sub ballot_count_crypt {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{select count(*) from ballot_enc where poll = ?}
+    );
+
+    $sth->execute($self->voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
+sub voting_count {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from voting
+        where poll = ?
+        }
+    );
+    $sth->execute($self->voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
+sub signing_count {
+    my ($self) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from signing join voting
+        on voting.key = signing.key where poll = ?
+        }
+    );
+
+    $sth->execute($self->voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
+sub not_signing_count {
+    my ($self) = @_;
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from voting where key
+        not in (select key from signing)
+        }
+    );
+
+    $sth->execute($self->voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
 =head1 AUTHOR