cvsimport

[hcoop/zz_old/portal.git] / pledge.mlt

<% @header [("title", ["Sliding scale pledges"])];

if $"cmd" = "set" then
	val user = Init.getUser ();
	val shares = Web.stoi ($"pledge");
	if shares <= 0 then
		%><h3>You can't make a non-positive pledge!</h3><%
	else
		Init.modUser {user with shares = shares}
		%><h3>Thank you for your pledge!</h3><%
	end
elseif $"cmd" = "calc" then
	val user = Init.getUser ();
	val amt = Web.stor ($"amt");
	val base = Money.costBase amt
	%><h3>Out of $<% amt %>, you would pay $<% Util.mult (#shares user, base) %> and the lowest share of the cost would be $<% base %>.</h3><%
end

val user = Init.getUser () %>

<p>HCoop divides expenses among members based on a "sliding scale"-style scheme. We charge you only for our concrete expenses, not adding any expenses beyond what we pay to service providers and vendors. Whenever a concrete expense needs to be paid for, we divide it among the members based on how much each of you has pledged on this web page. Your pledge is a whole number 1 or higher which you can think of as indicating how many times the amount paid by the lowest-contributing members you are willing to pay. Concretely, every expense is divided by the sum of all members' pledges, and each member is charged an amount equal to the result of that division times his pledge number. This way <i>everyone's</i> monthly costs go down automatically as we gain new members.</p>

<h2>Set your pledge number</h2>
<form method="post">
<input type="hidden" name="cmd" value="set">
<input name="pledge" size="3" value="<% #shares user %>">
<input type="submit" value="Set">
</form>

<h2>Calculate your share of an expense</h2>
<form method="post">
<input type="hidden" name="cmd" value="calc">
$<input name="amt" size="7" value="750">
<input type="submit" value="Calculate">
</form>

<h2>Members with pledges above 1</h2>

<table>
<% foreach usr in Init.byPledge () do %>
	<tr> <td align="right"><% #shares usr %></td> <td><a href="user?id=<% #id usr %>"><% Web.html (#name usr) %></a></td> </tr>
<% end %>
</table>

<% @footer [] %>