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

Timestamp:

03/06/09 03:17:11 (15 years ago)

Author:

nanardon

Message:

• ballot can be recorded

File:

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

trunk/lib/Vote/Controller/Ballot.pm

@@ -22 +22 @@
 =cut
 
+sub index : Private {
+    my ( $self, $c ) = @_;
+
+    $c->response->body('Matched Vote::Controller::Ballot in Vote.');
+}
+
 sub default : Private {
     my ( $self, $c, undef, $id ) = @_;
 
     $c->stash->{voteid} = $id;
+
+    my $vote = $c->model('Vote');
+    my %choices;
+    foreach ($vote->vote_choices($id)) {
+        $choices{$_->{key}} = $_->{label};
+    }
+
+    my $uid = 'Olivier Thauvin'; # for test now
+    if ($c->req->param('ballot')) {
+        $vote->register_ballot(
+            $uid,
+            $id,
+            [ grep { $_ } (
+              map { $choices{$_} } $c->req->param('sbal'),
+              $c->req->param('fsbal'),
+            ) ],
+            $c->req->address,
+        ); # TODO trap error
+    }
 }