Changeset 4 for trunk/Vote

Timestamp:

03/05/09 23:03:16 (15 years ago)

Author:

nanardon

Message:

• start vote form

Location:

trunk/Vote

Files:

• lib/Vote/Controller/Ballot.pm (modified) (1 diff)
• lib/Vote/Model/Vote.pm (modified) (1 diff)
• root/templates/ballot (added)

trunk/Vote/lib/Vote/Controller/Ballot.pm

@@ -22 +22 @@
 =cut
 
-sub index : Private {
-    my ( $self, $c ) = @_;
+sub default : Private {
+    my ( $self, $c, undef, $id ) = @_;
 
-    $c->response->body('Matched Vote::Controller::Ballot in Ballot.');
+    $c->stash->{voteid} = $id;
 }
 

trunk/Vote/lib/Vote/Model/Vote.pm

@@ -110 +110 @@
 }
 
+sub vote_choices {
+    my ($self, $id) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select * from choice where poll = ?
+        order by label
+        }
+    );
+    $sth->execute($id);
+    my @ch;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ch, $res);
+    }
+    @ch
+}
+
 =head1 AUTHOR