Statistics

[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><b>All polls</b></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>
<tr> <td align="right"><b>Poll#</b>:</td> <td><% id %></td> </tr>
<tr> <td align="right"><b>Title</b>:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td align="right"><b>Start</b>:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td align="right"><b>End</b>:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td align="right"><b>Votes/person</b>:</td> <td><% #votes poll %></td> </tr>
<tr> <td align="right" valign="top"><b>Description</b>:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>
</table>

<h3><b>Choices</b></h3>

<form action="poll">
<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>

<% 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 length votes > #votes poll then
		%><h3><b>You can't vote for that many different choices!</b></h3><%
	elseif not (Poll.noDupes votes) then
		%><h3><b>You can't vote multiple times for the same choice!</b></h3><%
	else
		Poll.vote (Init.getUserId (), id, votes)
		%><h3><b>Thanks for voting!</b></h3>
<%	end

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

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

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

<form action="poll">
<input type="hidden" name="id" value="<% $"mod" %>">
<table>
<tr> <td align="right"><b>Title</b>:</td> <td><input name="title" value="<% Web.html (#title poll) %>"></td> </tr>
<tr> <td align="right"><b>Start date</b>:</td> <td><input name="starts" value="<% Web.html (#starts poll) %>"></td> </tr>
<tr> <td align="right"><b>End date</b>:</td> <td><input name="ends" value="<% Web.html (#ends poll) %>"></td> </tr>
<tr> <td align="right"><b>Max votes/person</b>:</td> <td><input name="votes" value="<% #votes poll %>"></td> </tr>
<tr> <td align="right" valign="top"><b>Description</b>:</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");
	if title = "" then
		%><h3><b>Your poll must have a title.</b></h3><%
	elseif not (Poll.dateGeNow starts) then
		%><h3><b>That start date is in the past!</b></h3><%
	elseif not (Poll.dateLe (starts, ends)) then
		%><h3><b>The end date comes before the start date!</b></h3><%
	elseif votes <= 0 then
		%><h3><b>You must specify a positive number of votes per person.</b></h3><%
	else
		Poll.modPoll {poll with title = title, descr = $"descr", starts = starts, ends = ends, votes = votes};
		editingPoll := SOME (#id poll);
		%><h3><b>Poll record saved.</b></h3><%
	end

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

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

<% elseif $"addChoice" <> "" then
	val id = Web.stoi ($"addChoice");
	editingPoll := SOME id;
	val descr = $"descr";
	if descr = "" then
		%><h3><b>Your poll choice must have a description.</b></h3><%
	else
		val id = Poll.addChoice (id, Web.stor ($"seq"), descr);
		%><h3><b>Choice added!</b></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">
<input type="hidden" name="saveChoice" value="<% id %>">
<table>
<tr> <td align="right"><b>Text</b>:</td> <td><input name="descr" value="<% Web.html (#descr cho) %>"></td> </tr>
<tr> <td align="right"><b>Sequence#</b>:</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><b>Your poll choice must have a description.</b></h3><%
	else
		Poll.modChoice {cho with seq = Web.stor ($"seq"), descr = descr};
		%><h3><b>Choice saved!</b></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><b>Are you sure you want to delete choice "<% Web.html (#descr cho) %>"</a>?</b></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><b>"<% Web.html (#descr cho) %>" deleted!</b></h3>

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

<h3><b>Vote Report</b></h3>

<table>
<tr> <td align="right"><b>Poll#</b>:</td> <td><% id %></td> </tr>
<tr> <td align="right"><b>Title</b>:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td align="right"><b>Start</b>:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td align="right"><b>End</b>:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td align="right"><b>Votes/person</b>:</td> <td><% #votes poll %></td> </tr>
<tr> <td align="right" valign="top"><b>Description</b>:</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>
<% if canModify then %><tr> <td></td> <td><a href="poll?mod=<% id %>">Edit poll data</a></td> </tr><% end %>
<tr> <td align="right"><b>Poll#</b>:</td> <td><% id %></td> </tr>
<tr> <td align="right"><b>Title</b>:</td> <td><% Web.html (#title poll) %></td> </tr>
<tr> <td align="right"><b>Start</b>:</td> <td><% Web.html (#starts poll) %></td> </tr>
<tr> <td align="right"><b>End</b>:</td> <td><% Web.html (#ends poll) %></td> </tr>
<tr> <td align="right"><b>Votes/person</b>:</td> <td><% #votes poll %></td> </tr>
<tr> <td align="right" valign="top"><b>Description</b>:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>
</table>

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

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

<a href="poll?report=<% id %>">Vote Report</a>
<% 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 %>

<% if canModify then %>
<br><hr><br>
<h3><b>Add a new choice</b></h3>

<form action="poll">
<input type="hidden" name="addChoice" value="<% id %>">
<table>
<tr> <td align="right"><b>Text</b>:</td> <td><input name="descr"></td> </tr>
<tr> <td align="right"><b>Sequence#</b>:</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 %>

<a href="poll?cmd=list">Show all polls</a><br>

<h3><b>Create a poll</b></h3>

<form action="poll">
<input type="hidden" name="cmd" value="add">
<table>
<tr> <td align="right"><b>Title</b>:</td> <td><input name="title"></td> </tr>
<tr> <td align="right"><b>Start date</b>:</td> <td><input name="starts"></td> </tr>
<tr> <td align="right"><b>End date</b>:</td> <td><input name="ends"></td> </tr>
<tr> <td align="right"><b>Max votes/person</b>:</td> <td><input name="votes"></td> </tr>
<tr> <td align="right" valign="top"><b>Description</b>:</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[] %>