Changeset 219 for trunk/lib/Vote/Controller/Ballot.pm

Timestamp:

04/19/09 20:06:03 (15 years ago)

Author:

nanardon

Message:

• add specific object to manage ballot data

File:

• trunk/lib/Vote/Controller/Ballot.pm (modified) (3 diffs)

trunk/lib/Vote/Controller/Ballot.pm

@@ -88 +88 @@
     my @sbalval = grep { $_ } map { lc($choices{$_} || '') } $c->req->param('sbal');
 
-    if (scalar(@sbalval) + scalar(@{$c->stash->{fsbal} || []})
-        > $poll->info('choice_count')) {
+    my @ballot = grep { $_ } (@sbalval, @{$c->stash->{fsbal} || []});
+    if (scalar(@ballot) > $poll->info('choice_count')) {
         $c->req->parameters->{'ballot'} = '';
         $c->stash->{vote_error} = 'Seulement ' .
@@ -97 +97 @@
     {
         my %uniq;
-        foreach(@sbalval, @{$c->stash->{fsbal} || []}) {
+        foreach(@ballot) {
             $uniq{lc($_)} ||= 0; # avoid undef
             $uniq{lc($_)}++;
@@ -113 +113 @@
         $c->stash->{ballotid} = $poll->register_ballot(
             $mail,
-            [ @sbalval ],
-            [ @{ $c->stash->{fsbal} } ],
+            [ @ballot ],
             $c->req->address,
         ); # TODO trap error