Add link to records in admin page

a6356cd9 · Stephane Glondu · 2bdfd452 · a6356cd9
Commit a6356cd9 authored Apr 03, 2014 by Stephane Glondu
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

src/web/web_templates.ml src/web/web_templates.ml +4 -0

No files found.
--- a/src/web/web_templates.ml
+++ b/src/web/web_templates.ml
@@ -399,6 +399,10 @@ module Make (S : SITE_SERVICES) : TEMPLATES = struct
          let service = W.S.election_update_credential in
          a ~service [pcdata "Update a credential"] ();
        ];
+        div [
+          let service = W.S.election_dir in
+          a ~service [pcdata "Voting records"] ESRecords;
+        ];
        div [feature_form];
      ] in
      lwt login_box = site_login_box () in