Changeset 191

Timestamp:

04/14/09 02:07:40 (15 years ago)

Author:

nanardon

Message:

• try to see if free choice aren't in list list already

File:

• trunk/lib/Vote/DB/Poll.pm (modified) (2 diffs)

trunk/lib/Vote/DB/Poll.pm

@@ -336 +336 @@
 }
 
+sub find_choice_key {
+    my ($self, $value) = @_;
+
+    my $sth = $self->prepare_cached(
+        q{select key from choice where lower(label) = ? and poll = ?}
+    );
+    $sth->execute(lc($value), $self->pollid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{key}
+}
+
 sub _register_ballot_items {
     my ($self, $uid, $choice, $fchoice) = @_;
@@ -352 +364 @@
     foreach (@{ $fchoice || []}) {
         $_ or next;
-        $addbc->execute($uid, $_, 'f') or do {
+        my $chkey = $self->find_choice_key($_);
+        $addbc->execute($uid, $_, $chkey ? 't' : 'f') or do {
             $self->db->rollback;
             return;