Changeset 183 for trunk/lib

Timestamp:

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

Author:

nanardon

Message:

• output a pdf report using LaTeX

Location:

trunk/lib/Vote

Files:

• Controller/Admin.pm (modified) (1 diff)
• Controller/Vote.pm (modified) (1 diff)
• View/Latex.pm (added)

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/) }
 }