Update of /cvsroot/hcoop/portal/remind
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv31254
Modified Files:
remind.sml
Log Message:
Fix reminder deposit calculation
Index: remind.sml
===================================================================
RCS file: /cvsroot/hcoop/portal/remind/remind.sml,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** remind.sml 10 May 2008 23:19:24 -0000 1.11
--- remind.sml 11 May 2008 00:40:10 -0000 1.12
***************
*** 13,16 ****
--- 13,17 ----
val basePerMonth = 5.0
+ val deposit = basePerMonth * 3.0
fun main _ =
***************
*** 30,34 ****
val perMonth = basePerMonth * real shares
- val deposit = perMonth * 3.0
val headsUp = deposit + perMonth * 2.0
in
--- 31,34 ----
***************
*** 53,56 ****
--- 53,59 ----
write "\n\n";
+ write "(This e-mail supercedes the one sent a few hours
ago, which may have had an\n";
+ write "incorrect deposit amount.)\n\n";
+
if amount < deposit then
(write "Your HCoop balance is negative. This means
that you've paid less than you've\n";
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
