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

Timestamp:

03/06/09 03:17:11 (15 years ago)

Author:

nanardon

Message:

• ballot can be recorded

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -127 +127 @@
 }
 
+sub voting_info_id {
+    my ($self, $id, $voteid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select * from voting where id = ? and poll = ?
+        }
+    );
+    $sth->execute($id, $voteid);
+    my $res = $sth->fetchrow_hashref();
+    $sth->finish;
+    $res
+}
+
+sub _register_signing {
+    my ($self, $vid, $voteid, $referal) = @_;
+
+    my $vinfo = $self->voting_info_id($vid, $voteid) or return;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        insert into signing (key, referal) values (?,?)
+        }
+    );
+    $sth->execute($vinfo->{key}, $referal) or do {
+        $self->db->rollback;
+        return;
+    };
+
+    1;
+}
+
+sub gen_uid {
+    unpack("H*", join("", map { chr(rand(256)) } (0..15)))
+}
+
+sub _register_ballot {
+    my ($self, $voteid, $choice) = @_;
+
+    my $addb = $self->db->prepare_cached(
+        q{
+        insert into ballot (id, poll) values (?,?)
+        }
+    );
+    my $uid = gen_uid;
+    $addb->execute($uid, $voteid) or do {
+        self->db->rollback;
+        return;
+    };
+
+    my $addbc = $self->db->prepare_cached(
+        q{
+        insert into ballot_item (id, value) values (?,?)
+        }
+    );
+    foreach (@{ $choice || []}) {
+        $addbc->execute($uid, $_) or do {
+            $self->db->rollback;
+            return;
+        };
+    }
+
+    $uid;
+}
+
+sub register_ballot {
+    my ($self, $vid, $voteid, $choice, $referal) = @_;
+
+    # First we register voting has voted
+    $self->_register_signing($vid, $voteid, $referal) or return; # TODO error ?
+
+    # registring choices
+    my $uid = $self->_register_ballot($voteid, $choice) or return;
+
+    # everything went fine, saving!
+    $self->db->commit;
+
+    $uid
+}
+
+# Requete de decompte des voix:
+
+# select count(ballot.id), value from ballot left join ballot_item
+# on ballot.id = ballot_item.id where ballot.poll = 1 and invalid = 'false'
+# group by value
+# order by count
+
 =head1 AUTHOR