Changeset 22

Timestamp:

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

Author:

nanardon

Message:

• admin page

Location:

trunk

Files:

• lib/Vote/Controller/Admin.pm (modified) (1 diff)
• lib/Vote/Controller/Ballot.pm (modified) (1 diff)
• lib/Vote/Model/Vote.pm (modified) (3 diffs)
• root/templates/admin/default.tt (modified) (3 diffs)
• root/templates/ballot/default.tt (modified) (1 diff)
• root/templates/ballot/done.tt (modified) (1 diff)

trunk/lib/Vote/Controller/Admin.pm

@@ -36 +36 @@
         return;
     }
+
+    my $vote = $c->model('Vote');
+    if (my ($upload) = $c->req->upload('votinglist')) {
+        $vote->voting_from_file(
+            $id,
+            $upload->fh,
+            $c->req->param('delete'),
+        ) and $vote->db->commit;
+    } elsif ($c->req->param('addch')) {
+        $vote->vote_add_choice($id, $c->req->param('addch'))
+            and $vote->db->commit;
+    } elsif ($c->req->param('delch')) {
+        $vote->delete_choice($c->req->param('delch'))
+            and $vote->db->commit;
+    }
 }
 

trunk/lib/Vote/Controller/Ballot.pm

@@ -60 +60 @@
     my %choices;
     foreach ($vote->vote_choices($id)) {
-        $choices{$_->{key}} = $_->{label};
+        $choices{$vote->choice_info($_)->{key}} = $vote->choice_info($_)->{label};
     }
     $c->stash->{choices} = { %choices };

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

trunk/root/templates/admin/default.tt

@@ -1 +1 @@
 [% vote = c.model('Vote') %]
 
+<table border="1">
+<tr><th>Vote</th><th>Possibilité de vote</th></tr>
+<tr>
+<td valign="TOP">
 <form action="[% c.uri_for(voteid) %]">
 
@@ -11 +15 @@
 Debut du vote:
 <input type="text" name="start" value="[% c.req.param('start') || thisvote.start | html %]">
+<br>
 Fin du vote:
 <input type="text" name="end" value="[% c.req.param('end') || thisvote.end | html %]">
@@ -20 +25 @@
 <input type="text" name="free_choice" value="[% c.req.param('free_choice') || thisvote.free_choice | html %]">
 <br>
-
-
 <input type="submit">
 </form>
+</td>
+<td valign="TOP">
+[% FOREACH choice = vote.vote_choices(voteid) %]
+<form action="[% c.uri_for(voteid) %]">
+[% loop.count %] - [% vote.choice_info(choice).label | html %]
+<input type="hidden" name="delch" value="[% vote.choice_info(choice).key %]">
+<input type="submit" name="del" value="Effacer">
+</form>
+<br>
+[% END %]
+<form action="[% c.uri_for(voteid) %]">
+Ajouter un choix:<br>
+<input type="text" name="addch">
+<input type="submit">
+</form>
+</td>
+</tr>
+</table>
+
+<hr>
+
+<table border="1">
+<tr>
+<td valign="TOP">
+[% signing = [ vote.vote_signing(voteid) ] %]
+[% FOREACH voting = signing %]
+[% voting.id | html %] [% voting.mail | html %]<br>
+[% END %]
+</td>
+<td valign="TOP">
+<form action="[% c.uri_for(voteid) %]">
+Login: <input type="text" name="id"><br>
+Mail: <input type="text" name="mail"><br>
+<input type="submit">
+</form>
+<hr>
+<form method="POST" ENCTYPE="multipart/form-data" action="[% c.uri_for(voteid) %]">
+<input type="file" name="votinglist"><br>
+<input type="checkbox" name="delete">Effacer la liste des votants<br>
+<input type="submit">
+</form>
+</td>
+</tr>
+</table>
+</t

trunk/root/templates/ballot/default.tt

@@ -27 +27 @@
 <form action="[% c.uri_for(voteid) %]">
 [% FOREACH choice = vote.vote_choices(voteid) %]
-[% key = choice.key %]
-<input type="checkbox" name="sbal" value="[% choice.key %]"[% " checked" IF sbal.$key %]>
-[% choice.label | html %]<br>
+[% key = vote.choice_info(choice).key %]
+<input type="checkbox" name="sbal" value="[% key %]"[% " checked" IF sbal.$key %]>
+[% vote.choice_info(choice).label | html %]<br>
 [% END %]
 

trunk/root/templates/ballot/done.tt

@@ -1 +1 @@
 Vote réussi.
+
+Les résultats seront disponibles ici:
+<a href="[% c.uri_for('/vote', voteid) %]">Ici</a>.