Changeset 183

Timestamp:

04/12/09 18:33:25 (15 years ago)

Author:

nanardon

Message:

• output a pdf report using LaTeX

Location:

trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (2 diffs)
• lib/Vote/Controller/Admin.pm (modified) (1 diff)
• lib/Vote/Controller/Vote.pm (modified) (1 diff)
• lib/Vote/View/Latex.pm (added)
• root/latex (added)
• root/latex/includes (added)
• root/latex/includes/footer.tt (added)
• root/latex/includes/header.tt (added)
• root/latex/poll_report.tt (added)
• root/templates/includes/poll_results.tt (modified) (1 diff)
• t/view_Latex.t (added)

trunk/Changes

@@ -5 +5 @@
         - preserve line break in ballot page
         - group value per ballot
+        - generate a pdf output using Latex
 
 1.00  2009-04-03 16:00

trunk/MANIFEST

@@ -32 +32 @@
 lib/Vote/View/Mail.pm
 lib/Vote/View/TT.pm
+lib/Vote/View/Latex.pm
 Makefile.PL
 MANIFEST                        This list of files
@@ -59 +60 @@
 root/mail/ballot_confirm.tt
 root/mail/voting_passwd.tt
+root/latex/includes/header.tt
+root/latex/includes/footer.tt
+root/latex/poll_report.tt
 root/templates/admin/default.tt
 root/templates/admin/denied.tt

trunk/lib/Vote/Controller/Admin.pm

@@ -214 +214 @@
 }
 
-sub dec: LocalRegex('^(\d+)/dec$') {
-    my ($self, $c, $id, @sub) = @_;
-    ($c->stash->{voteid}) = @{ $c->req->snippets || [] };
-    my $vote = $c->model('Vote');
-
-    $vote->vote_info($id) or do {
-        $c->res->redirect($c->uri_for('/'));
-        return;
-    };
-
-    $c->forward('auth') or return;
-    $c->stash->{page}{title} = $c->model('Vote')->vote_info(
-        $c->stash->{voteid}
-    )->{label} . ': Administration, bulletin';
-    $c->model('Vote')->poll($c->stash->{voteid})->decrypted_ballots;
-}
-
 sub end : Private {
     my ($self, $c) = @_;
     if ($c->res->body) { return }
+    elsif ($c->stash->{latex}) { $c->forward(qw/Vote::View::Latex/) }
     else { $c->forward(qw/Vote::View::TT/) }
 }

trunk/lib/Vote/Controller/Vote.pm

@@ -40 +40 @@
 }
 
+sub report: LocalRegex('^(\d+)/report.(\w+)$') {
+    my ($self, $c, $id, @sub) = @_;
+    ($c->stash->{voteid}, $c->stash->{format}) = @{ $c->req->snippets || [] };
+    my $vote = $c->model('Vote');
+
+    $vote->vote_info($id) or do {
+        $c->res->redirect($c->uri_for('/'));
+        return;
+    };
+
+    $c->stash->{template} = 'poll_report.tt';
+    $c->stash->{latex} = 1;
+}
+
 sub end : Private {
     my ($self, $c) = @_;
     if ($c->res->body) { return }
+    elsif ($c->stash->{latex}) { $c->forward(qw/Vote::View::Latex/) }
     else { $c->forward(qw/Vote::View::TT/) }
 }

trunk/root/templates/includes/poll_results.tt

@@ -5 +5 @@
 
 <div id="results" class="box">
+<div style="float: right">
+<a href="[% c.uri_for('/vote', voteid, 'report.pdf') %]">Rapport en PDF</a>
+</div>
 [% IF vote.list_vote_ballot_needvalid(voteid).size %]
 <p>Resultats provisoires:</p>