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

Timestamp:

03/06/09 18:03:16 (15 years ago)

Author:

nanardon

Message:

• check already voted

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -250 +250 @@
 }
 
+sub voting_has_sign {
+    my ($self, $poll, $user) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select date from signing join voting
+        on voting.key = signing.key
+        where poll = ? and id = ?
+        }
+    );
+
+    $sth->execute($poll, $user);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    return $res->{date}
+}
+
 # Requete de decompte des voix: