Changeset 221 for trunk/lib

Timestamp:

04/20/09 03:24:26 (15 years ago)

Author:

nanardon

Message:

• add a select build from voting list on ballot

Location:

trunk/lib/Vote/Controller

Files:

• Admin.pm (modified) (1 diff)
• Ballot.pm (modified) (1 diff)

trunk/lib/Vote/Controller/Admin.pm

@@ -74 +74 @@
                 map { $_ => ($c->req->param($_) || undef) }
                 grep { exists($c->req->params->{$_}) }
-                qw(label description start end choice_count free_choice elected_count)
+                qw(label description start end choice_count free_choice elected_count elected_choice)
             ) and $poll->commit;
         } elsif ($c->req->param('encrypted')) {

trunk/lib/Vote/Controller/Ballot.pm

@@ -84 +84 @@
         lc($_)
     } ($c->req->param('fsbal')) ];
+    $c->stash->{esbal} = [ grep { $_ } $c->req->param('esbal') ];
+
     $c->request->parameters->{fsbal} = $c->stash->{fsbal};
 
     my @sbalval = grep { $_ } map { lc($choices{$_} || '') } $c->req->param('sbal');
 
-    my @ballot = grep { $_ } (@sbalval, @{$c->stash->{fsbal} || []});
+    my @ballot = grep { $_ } (
+        @sbalval,
+        @{$c->stash->{fsbal} || []},
+        @{$c->stash->{esbal} || []},
+    );
     if (scalar(@ballot) > $poll->info('choice_count')) {
         $c->req->parameters->{'ballot'} = '';