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

Timestamp:

03/08/09 15:36:06 (15 years ago)

Author:

nanardon

Message:

• mark untrusted ballot

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (4 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -221 +221 @@
 
 sub _register_ballot {
-    my ($self, $voteid, $choice) = @_;
+    my ($self, $voteid, $choice, $fchoice) = @_;
 
     my $addb = $self->db->prepare_cached(
         q{
-        insert into ballot (id, poll) values (?,?)
+        insert into ballot (id, poll, invalid) values (?,?,?)
         }
     );
     my $uid = gen_uid;
-    $addb->execute($uid, $voteid) or do {
+    $addb->execute($uid, $voteid, scalar(@{$fchoice || []}) ? undef : 'f') or do {
         self->db->rollback;
         return;
@@ -236 +236 @@
     my $addbc = $self->db->prepare_cached(
         q{
-        insert into ballot_item (id, value) values (?,?)
+        insert into ballot_item (id, value, fromlist) values (?,?,?)
         }
     );
     foreach (@{ $choice || []}) {
-        $addbc->execute($uid, $_) or do {
+        $addbc->execute($uid, $_, 't') or do {
             $self->db->rollback;
             return;
         };
     }
+    foreach (@{ $fchoice || []}) {
+        $addbc->execute($uid, $_, 'f') or do {
+            $self->db->rollback;
+            return;
+        };
+    }
 
     $uid;
@@ -250 +256 @@
 
 sub register_ballot {
-    my ($self, $vid, $voteid, $choice, $referal) = @_;
+    my ($self, $vid, $voteid, $choice, $fchoice, $referal) = @_;
 
     # First we register voting has voted
@@ -256 +262 @@
 
     # registring choices
-    my $uid = $self->_register_ballot($voteid, $choice) or return;
+    my $uid = $self->_register_ballot($voteid, $choice, $fchoice) or return;
 
     # everything went fine, saving!