From 972c70b709b8a055d826343be34619d2470ca394 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 24 Jan 2008 23:09:10 +0000
Subject: [PATCH] List open polls on polls page

---
 poll.mlt | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/poll.mlt b/poll.mlt
index 505044f..4b7d968 100644
--- a/poll.mlt
+++ b/poll.mlt
@@ -313,9 +313,21 @@ end %>
 
 <% end %>
 <%	| NONE =>
-if showNormal then %>
+if showNormal then
 
-<a href="poll?cmd=list">Show all polls</a><br>
+val polls = Poll.listCurrentPolls ();
+switch polls of
+	_::_ => %>
+<h3><a href="poll">Current polls</a></h3>
+
+<% foreach pol in polls do %>
+<li> <a href="poll?id=<% #id pol %>"><% Web.html (#title pol) %></a>
+<% if Poll.takingVotes pol then %><a href="poll?vote=<% #id pol %>">[VOTE]</a><% end %>
+(<% Web.html (#starts pol) %> to <% Web.html (#ends pol) %>)</li>
+<% end
+end %>
+
+<p><a href="poll?cmd=list">Show all polls</a></p>
 
 <h3>Create a poll</h3>
 
-- 
2.20.1