Changeset 165 for trunk/lib/Vote/DB

Timestamp:

04/06/09 02:13:06 (15 years ago)

Author:

nanardon

Message:

• add Vote::DB::Choice object

Location:

trunk/lib/Vote/DB

Files:

• Choice.pm (added)
• Poll.pm (modified) (3 diffs)

trunk/lib/Vote/DB/Poll.pm

@@ -10 +10 @@
 use Vote::DB::Ballot;
 use Vote::DB::Voting;
+use Vote::DB::Choice;
 
 =head1 NAME
@@ -212 +213 @@
 }
 
+sub choice {
+    my ($self, $chid) = @_;
+    
+    my $sth = $self->db->prepare_cached(
+        q{
+        select key from choice where poll = ? and key = ?
+        }
+    );
+    $sth->execute($self->voteid, $chid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    return $res ? Vote::DB::Choice->new($self->{dbstring}, $chid) : undef;
+}
+
 sub choices {
     my ($self) = @_;
@@ -242 +257 @@
 
     1
+}
+
+sub delete_choice {
+    my ($self, $chid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{delete from choice where key = ?}
+    );
+
+    $sth->execute($chid);
 }