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

Timestamp:

03/09/09 03:59:15 (15 years ago)

Author:

nanardon

Message:

• admin page

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (3 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -172 +172 @@
     my $sth = $self->db->prepare_cached(
         q{
-        select * from choice where poll = ?
+        select key from choice where poll = ?
         order by label
         }
@@ -179 +179 @@
     my @ch;
     while (my $res = $sth->fetchrow_hashref) {
-        push(@ch, $res);
+        push(@ch, $res->{key});
     }
     @ch
+}
+
+sub choice_info {
+    my ($self, $chid) = @_;
+    my $sth = $self->db->prepare_cached(
+        q{select * from choice where key = ?}
+    );
+    $sth->execute($chid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res
+}
+
+sub vote_add_choice {
+    my ($self, $voteid, $label) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{insert into choice (poll, label) values (?,?)}
+    );
+
+    $sth->execute($voteid, $label) or do {
+        $self->db->rollback;
+        return;
+    };
+
+    1
+}
+
+sub modify_choice {
+    my ($self, $chid, $label) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{update choice set label = ? where key = ?}
+    );
+    $sth->execute($label, $chid);
+}
+
+sub delete_choice {
+    my ($self, $chid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{delete from choice where key = ?}
+    );
+
+    $sth->execute($chid);
 }
 
@@ -448 +493 @@
 }
 
+sub addupd_voting {
+    my ($self, $voteid, $id, $mail) = @_;
+
+    my $upd = $self->db->prepare_cached(
+        q{
+        update voting set mail = ? where poll = ? and id = ?
+        }
+    );
+
+    if ($upd->execute($mail, $voteid, $id) == 0) {
+        my $add = $self->db->prepare_cached(q{
+            insert into voting (poll, id, mail) values (?,?,?)
+        });
+
+        $add->execute($voteid, $id, $mail);
+    }
+}
+
+sub voting_from_file {
+    my ($self, $voteid, $fh, $delete) = @_;
+
+    if ($delete) {
+        my $sth = $self->db->prepare(q{delete from voting where poll = ?});
+        $sth->execute($voteid);
+    }
+
+    while (my $line = <$fh>) {
+        chomp($line);
+        warn $line;
+        my ($id, $mail) = split(';', $line);
+        $id && $mail or do {
+            $self->db->rollback;
+            return;
+        };
+        $self->addupd_voting($voteid, $id, $mail);
+    }
+    1;
+}
+
 
 =head1 AUTHOR