Update of /cvsroot/hcoop/portal/remind
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv3314/remind
Modified Files:
remind.sml
Log Message:
Putting new balance stuff into action
Index: remind.sml
===================================================================
RCS file: /cvsroot/hcoop/portal/remind/remind.sml,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** remind.sml 18 Feb 2008 18:22:48 -0000 1.9
--- remind.sml 1 Mar 2008 19:30:52 -0000 1.10
***************
*** 28,33 ****
val perMonth = 900.0 * real shares / real totalShares
! val deposit = perMonth * 3.0
! val headsUp = perMonth * 5.0
in
if amount >= headsUp then
--- 28,33 ----
val perMonth = 900.0 * real shares / real totalShares
! val deposit = 900.0 / real totalShares * 3.0
! val headsUp = deposit + perMonth * 2.0
in
if amount >= headsUp then
***************
*** 77,83 ****
write "\n\nYour deposit requirement was calculated by
dividing our total monthly expenses\n";
! write "($900) by the sum of all members' pledge
amounts, multiplying by your pledge amount,\n";
! write "and then multiplying by 3. That is, the amount
covers your share of three months'\n";
! write "expenses.\n\n";
write "To make a payment, visit:\n";
--- 77,82 ----
write "\n\nYour deposit requirement was calculated by
dividing our total monthly expenses\n";
! write "($900) by the sum of all members' pledge amounts
and then multiplying by 3. That\n";
! write "is, the amount covers a minimal share of three
months' expenses.\n\n";
write "To make a payment, visit:\n";
***************
*** 87,92 ****
write "\nIf for whatever reason you don't plan to pay
the amount suggested in this e-mail,\n";
write "_please_ don't stay silent. Reply to this
message explaining your circumstances.\n";
- write "We are doing limited-time monetary grants on
request, due to the extra costs\n";
- write "associated with setting up our new servers.\n";
ignore (Mail.mclose m)
--- 86,89 ----
-------------------------------------------------------------------------
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
