Changeset 12 for trunk/lib

Timestamp:

03/06/09 14:10:52 (15 years ago)

Author:

nanardon

Message:

• add count functions

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (1 diff)

trunk/lib/Vote/Model/Vote.pm

@@ -207 +207 @@
 }
 
+sub signing_count {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from signing join voting
+        on voting.key = signing.key where poll = ?
+        }
+    );
+
+    $sth->execute($voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
+sub ballot_count {
+    my ($self, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select count(*) from ballot where poll = ?
+        }
+    );
+
+    $sth->execute($voteid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{count}
+}
+
 # Requete de decompte des voix: