Changeset 98

Timestamp:

03/24/09 12:17:46 (15 years ago)

Author:

nanardon

Message:

• try 3 times to record ballot

File:

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

trunk/lib/Vote/Model/Vote.pm

@@ -404 +404 @@
     my ($self, $vid, $voteid, $choice, $fchoice, $referal) = @_;
 
+    my $uid;
+    for (0..2) { # 3 try
     # 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, $fchoice) or return;
-
+    $uid = $self->_register_ballot($voteid, $choice, $fchoice);
+    defined($uid) and last;
+
+    }
     # everything went fine, saving!
     $self->db->commit;