Add [X]HTML5 DTD to header

[hcoop/portal.git] / poll.mlt

<% @header[("title", ["Polls"])];

val pollAdmin = Group.inGroupName "poll";

ref editingPoll = NONE;
ref showNormal = true;

if $"cmd" = "list" then
	showNormal := false %>

<h2>All polls</h2>

<% foreach pol in Poll.listPolls () do %>
<li> <a href="poll?id=<% #id pol %>"><% Web.html (#title pol) %></a>
<% if pollAdmin then %><a href="poll?del=<% #id pol %>">[Delete]</a> <% end %>
</li>
<% end

elseif $"vote" <> "" then
	showNormal := false;	
	val id = Web.stoi ($"vote");
	val poll = Poll.lookupPoll id %>

<table class="blanks">
<tr> <td>Poll#:</td> <td><% id %></td> </tr>
<tr> <td>Title:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td>Start:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td>End:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td>Votes/person:</td> <td><% #votes poll %></td> </tr>
<tr> <td>Official:</td> <td><% if #official poll then "yes" else "no" end %></td> </tr>
<tr> <td>Description:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>
</table>

<% if #official poll and Poll.membershipLength (Init.getUserId ()) < Poll.votingMembershipRequirement then %>
   <h3>You haven't been a member long enough to vote in an official poll.</h3>
<% else %>
<h3>Choices</h3>

<form action="poll" method="post">
<input type="hidden" name="vote2" value="<% id %>">
<% val choices = Poll.listChoicesWithMyVotes id;
if #votes poll = 1 then %>
<select name="v">
<option value="">Abstain</option>
<% else %>
<select name="v" multiple size="<% length choices %>">
<% end
foreach (you, cho) in choices do %>
	<option value="<% #id cho %>"<% if you then %> selected<% end %>><% Web.html (#descr cho) %></option>
<% end %></select><br><br>
<input type="submit" value="Vote">
</form>

<% end
elseif $"vote2" <> "" then
	val id = Web.stoi ($"vote2");
	val poll = Poll.lookupPoll id;
	editingPoll := SOME id;

	val votes = case Web.getMultiParam "v" of
		  [""] => []
		| v => map Web.stoi v;

	if #official poll and Poll.membershipLength (Init.getUserId ()) < Poll.votingMembershipRequirement then
	        %><h3>You haven't been a member long enough to vote in an official poll.</h3><%
	elseif length votes > #votes poll then
		%><h3>You can't vote for that many different choices!</h3><%
	elseif not (Poll.noDupes votes) then
		%><h3>You can't vote multiple times for the same choice!</h3><%
	else
		Poll.vote (Init.getUserId (), id, votes)
		%><h3>Thanks for voting!</h3>
<%	end

elseif $"cmd" = "add" then
	val title = $"title";
	val starts = $"starts";
	val ends = $"ends";
	val votes = Web.stoi ($"votes");
	val official = $"official" = "on";
	if title = "" then
		%><h3>Your poll must have a title.</h3><%
	elseif not pollAdmin and not (Poll.dateGeNow starts) then
		%><h3>That start date is in the past!</h3><%
	elseif not pollAdmin and not (Poll.dateLe (starts, ends)) then
		%><h3>The end date comes before the start date!</h3><%
	elseif votes <= 0 then
		%><h3>You must specify a positive number of votes per person.</h3><%
	else
		val id = Poll.addPoll (Init.getUserId(), title, $"descr", starts, ends, votes, official, false);
		editingPoll := SOME id;
		%><h3>Poll added!</h3><%
	end

elseif $"mod" <> "" then
	showNormal := false;
	val poll = Poll.lookupPoll (Web.stoi ($"mod"));

	Poll.requireCanModify poll %>
<h3>Modify poll</h3>

<form action="poll" method="post">
<input type="hidden" name="id" value="<% $"mod" %>">
<table class="blanks">
<tr> <td>Title:</td> <td><input name="title" value="<% Web.html (#title poll) %>"></td> </tr>
<tr> <td>Ready?</td> <td><input type="checkbox" name="ready" <% if #ready poll then " checked" else "" end %>></td> </tr>
<tr> <td>Start date:</td> <td><input name="starts" value="<% Web.html (#starts poll) %>"></td> </tr>
<tr> <td>End date:</td> <td><input name="ends" value="<% Web.html (#ends poll) %>"></td> </tr>
<tr> <td>Max votes/person:</td> <td><input name="votes" value="<% #votes poll %>"></td> </tr>
<tr> <td>Official:</td> <td><input type="checkbox" name="official"<% if #official poll then " checked" end %>></td> </tr>
<tr> <td>Description:</td> <td><textarea name="descr" wrap="soft" rows="5" cols="80"><% Web.html (#descr poll) %></textarea></td> </tr>
<tr> <td><input type="submit" name="cmd" value="Save"></td> </tr>
</table>
</form>

<% elseif $"cmd" = "Save" then
	val poll = Poll.lookupPoll (Web.stoi ($"id"));

	Poll.requireCanModify poll;

	val title = $"title";
	val starts = $"starts";
	val ends = $"ends";
	val votes = Web.stoi ($"votes");
	val official = $"official" = "on";
	val ready = $"ready" = "on";
        if not (Poll.canModify poll) then
		%><h3>You can't modify this poll anymore, because voting is already open.</h3><%
	elseif title = "" then
		%><h3>Your poll must have a title.</h3><%
	elseif not pollAdmin and not (Poll.dateGeNow starts) then
		%><h3>That start date is in the past!</h3><%
	elseif not pollAdmin and not (Poll.dateLe (starts, ends)) then
		%><h3>The end date comes before the start date!</h3><%
	elseif votes <= 0 then
		%><h3>You must specify a positive number of votes per person.</h3><%
	else
		Poll.modPoll {poll with title = title, descr = $"descr", starts = starts, ends = ends, votes = votes, official = official,
             		      ready = ready};
		editingPoll := SOME (#id poll);
		%><h3>Poll record saved.</h3><%
	end

elseif $"del" <> "" then
	showNormal := false;
	val poll = Poll.lookupPoll (Web.stoi ($"del"));
	Poll.requireCanModify poll %>
	<h3>Are you sure you want to delete poll <a href="poll?id=<% #id poll %>"><% Web.html (#title poll) %></a>?</h3>
	<a href="poll?del2=<% $"del" %>">Yes, delete <% Web.html (#title poll) %>!</a>

<% elseif $"del2" <> "" then
	val poll = Poll.lookupPoll (Web.stoi ($"del2"));
	Poll.requireCanModify poll;
	Poll.deletePoll (Web.stoi ($"del2")) %>
	<h3><% Web.html (#title poll) %> deleted!</h3>

<% elseif $"addChoice" <> "" then
	val id = Web.stoi ($"addChoice");
	editingPoll := SOME id;
	val descr = $"descr";
	val poll = Poll.lookupPoll id;
        if not (Poll.canModify poll) then
		%><h3>You can't modify this poll anymore, because voting is already open.</h3><%
	elseif descr = "" then
		%><h3>Your poll choice must have a description.</h3><%
	else
		val id = Poll.addChoice (id, Web.stor ($"seq"), descr);
		%><h3>Choice added!</h3><%
	end

elseif $"modChoice" <> "" then
	showNormal := false;
	val id = Web.stoi ($"modChoice");
	val cho = Poll.lookupChoice id;
	val poll = Poll.lookupPoll (#pol cho);
	Poll.requireCanModify poll %>

<form action="poll" method="post">
<input type="hidden" name="saveChoice" value="<% id %>">
<table class="blanks">
<tr> <td>Text:</td> <td><input name="descr" value="<% Web.html (#descr cho) %>"></td> </tr>
<tr> <td>Sequence#:</td> <td><input name="seq" value="<% #seq cho %>"></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </tr>
</table>
</form>

<% elseif $"saveChoice" <> "" then
	val id = Web.stoi ($"saveChoice");
	val cho = Poll.lookupChoice id;
	val poll = Poll.lookupPoll (#pol cho);
	Poll.requireCanModify poll;
	editingPoll := SOME (#id poll);
	val descr = $"descr";
	if descr = "" then
		%><h3>Your poll choice must have a description.</h3><%
	else
		Poll.modChoice {cho with seq = Web.stor ($"seq"), descr = descr};
		%><h3>Choice saved!</h3><%
	end

elseif $"delChoice" <> "" then
	val id = Web.stoi ($"delChoice");
	val cho = Poll.lookupChoice id;
	val poll = Poll.lookupPoll (#pol cho);
	Poll.requireCanModify poll;
	showNormal := false %>
	<h3>Are you sure you want to delete choice "<% Web.html (#descr cho) %>"</a>?</h3>
	<a href="poll?delChoice2=<% $"delChoice" %>">Yes, delete "<% Web.html (#descr cho) %>"!</a>

<% elseif $"delChoice2" <> "" then
	val id = Web.stoi ($"delChoice2");
	val cho = Poll.lookupChoice id;
	val poll = Poll.lookupPoll (#pol cho);
	Poll.requireCanModify poll;
	Poll.deleteChoice id;
	editingPoll := SOME (#id poll) %>
	<h3>"<% Web.html (#descr cho) %>" deleted!</h3>

<% elseif $"report" <> "" then
	showNormal := false;
	val id = Web.stoi ($"report");
		
	val poll = Poll.lookupPoll id;
	val canModify = Poll.canModify poll %>

<h3>Vote Report</h3>

<p>Voters:
<%	ref first = true;
	foreach user in Poll.listPollVoters id do
		if first then
			first := false
		else
			%>, <%
		end
		%><a href="user?id=<% #id user %>"><% #name user %></a><%
	end %></p>

<table class="blanks">
<tr> <td>Poll#</b>:</td> <td><% id %></td> </tr>
<tr> <td>Title</b>:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td>Start:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td>End:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td>Votes/person:</td> <td><% #votes poll %></td> </tr>
<tr> <td>Official:</td> <td><% if #official poll then "yes" else "no" end %></td> </tr>
<tr> <td>Description:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>
</table>

<br><hr><br>

<table>
<tr> <td><b>Votes</b></td> <td><b>Choice</b></td> <td><b>Voters</b></td> </tr>
<% foreach (_, total, cho) in Poll.listChoicesWithVotes id do %>
	<tr> <td><% total %></td> <td><% Web.html (#descr cho) %></td> <td>
<%	ref first = true;
	foreach user in Poll.listVoters (#id cho) do
		if first then
			first := false
		else
			%>, <%
		end
		%><a href="user?id=<% #id user %>"><% #name user %></a><%
	end
	%></td> </tr><%
end %>
</table>

<% elseif $"id" <> "" then
	editingPoll := SOME (Web.stoi ($"id"))

end %>		

<% switch editingPoll of
	  SOME id =>
		val poll = Poll.lookupPoll id;
		val canModify = Poll.canModify poll %>

<table class="blanks">
<% if canModify then %><tr> <td></td> <td><a href="poll?mod=<% id %>">Edit poll data</a></td> </tr><% end %>
<tr> <td>Poll#:</td> <td><% id %></td> </tr>
<tr> <td>Title:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td>Start:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td>End:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td>Votes/person:</td> <td><% #votes poll %></td> </tr>
<tr> <td>Official:</td> <td><% if #official poll then "yes" else "no" end %></td> </tr>
<tr> <td>Description:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>
</table>

<h3>Choices<% if Poll.takingVotes poll then %><a href="poll?vote=<% id %>">(Vote!)</a><% end %></h3>

<p><% Poll.countVoters (#id poll) %> people have voted.</p>

<% if Poll.takingVotes poll then %>
<table>
<tr> <td><b>You</b></td> <td><b>Total</b></td> </tr>
<% foreach (you, total, cho) in Poll.listChoicesWithVotes id do %>
	<tr> <td align="center"><% if you then %>X<% end %></td>
	<td align="center"><% total %></td>
	<td><% Web.html (#descr cho) %></td>
<% if canModify then %>
<td><i>(<% #seq cho %>)</i>
<a href="poll?modChoice=<% #id cho %>">[Modify]</a>
<a href="poll?delChoice=<% #id cho %>">[Delete]</a></td>
<% end %></tr>
<% end %>
</table>

<% else
foreach cho in Poll.listChoices id do %>
	<li> <% Web.html (#descr cho) %>
<% if canModify then %>
<i>(<% #seq cho %>)</i>
<a href="poll?modChoice=<% #id cho %>">[Modify]</a>
<a href="poll?delChoice=<% #id cho %>">[Delete]</a>
<% end %></li>
<% end
end %>

<a href="poll?report=<% id %>">Vote Report</a>

<% if canModify then %>
<br><hr><br>
<h3><a href="?del=<% id %>">Delete this poll</a></h3>

<h3>Add a new choice</h3>

<form action="poll" method="post">
<input type="hidden" name="addChoice" value="<% id %>">
<table class="blanks">
<tr> <td>Text:</td> <td><input name="descr"></td> </tr>
<tr> <td>Sequence#:</td> <td><input name="seq" value="<% Poll.nextSeq id %>"></td> </tr>
<tr> <td><input type="submit" value="Add"></td> </tr>
</table>
</form>

<% end %>
<%	| NONE =>
if showNormal then

val mlen = Poll.membershipLength (Init.getUserId ()) %>

<p>You have been an HCoop member for <% mlen %> days, so you <b>are<% if mlen < Poll.votingMembershipRequirement then %> not<% end %></b> eligible to vote in official polls.</p>

<% 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>

<form action="poll" method="post">
<input type="hidden" name="cmd" value="add">
<table class="blanks">
<tr> <td>Title:</td> <td><input name="title"></td> </tr>
<tr> <td>Start date:</td> <td><input name="starts"></td> </tr>
<tr> <td>End date:</td> <td><input name="ends"></td> </tr>
<tr> <td>Max votes/person:</td> <td><input name="votes"></td> </tr>
<tr> <td>Official:</td> <td><input type="checkbox" name="official"></td> </tr>
<tr> <td>Description:</td> <td><textarea name="descr" wrap="soft" rows="5" cols="80"></textarea></td> </tr>
<tr> <td><input type="submit" value="Create"></td> </tr>
</table>
</form>

<% end
end %>

<% @footer[] %>