Update of /cvsroot/hcoop/portal
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25418
Modified Files:
poll.mlt
Log Message:
List open polls on polls page
Index: poll.mlt
===================================================================
RCS file: /cvsroot/hcoop/portal/poll.mlt,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** poll.mlt 2 Jul 2006 17:11:16 -0000 1.8
--- poll.mlt 24 Jan 2008 23:09:10 -0000 1.9
***************
*** 314,320 ****
<% end %>
<% | NONE =>
! if showNormal then %>
! <a href="poll?cmd=list">Show all polls</a><br>
<h3>Create a poll</h3>
--- 314,332 ----
<% end %>
<% | NONE =>
! if showNormal then
! 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>
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
