Changeset 4 for trunk/Vote/lib/Vote/Model/Vote.pm

Timestamp:

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

Author:

nanardon

Message:

• start vote form

File:

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

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