Managing support categories and subscriptions

[bpt/portal.git] / portal.mlt

diff --git a/portal.mlt b/portal.mlt
index 44df241..0b4f014 100644 (file)
--- a/portal.mlt
+++ b/portal.mlt
@@ -12,4 +12,12 @@ val bal = Balance.lookupBalance (#bal you);
 </table>
 <b>Balance: $<% #amount bal %></b>
 
+<h3><b><a href="poll">Current polls</a></b></h3>
+
+<% foreach pol in Poll.listCurrentPolls () 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 %>
+
 <% @footer [] %>
\ No newline at end of file