From: Adam C. <ad...@us...> - 2009-11-24 13:36:51
|
Update of /cvsroot/hcoop/portal In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19950 Modified Files: balance.sml money.sml Log Message: Fold dues increase into portal Index: balance.sml =================================================================== RCS file: /cvsroot/hcoop/portal/balance.sml,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** balance.sml 21 Mar 2009 14:43:06 -0000 1.14 --- balance.sml 24 Nov 2009 13:36:43 -0000 1.15 *************** *** 109,113 **** fun isNegative (bal : balance) = #amount bal < 0.0 ! fun depositAmount _ = 5.0 * 3.0 (*fun depositAmount bal = let --- 109,113 ---- fun isNegative (bal : balance) = #amount bal < 0.0 ! fun depositAmount _ = 7.0 * 3.0 (*fun depositAmount bal = let Index: money.sml =================================================================== RCS file: /cvsroot/hcoop/portal/money.sml,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** money.sml 31 May 2008 17:42:32 -0000 1.18 --- money.sml 24 Nov 2009 13:36:43 -0000 1.19 *************** *** 277,281 **** val graceMonths = 1 ! val baseDues = 5.0 fun delinquentPledgers () = --- 277,281 ---- val graceMonths = 1 ! val baseDues = 7.0 fun delinquentPledgers () = *************** *** 297,302 **** fun freezeworthyPledgers () = let - val baseDues = 5.0 - fun makeRow [id, name, amount, j] = {id = C.intFromSql id, name = C.stringFromSql name, balance = C.realFromSql amount, joinedThisMonth = C.boolFromSql j} --- 297,300 ---- *************** *** 312,317 **** fun bootworthyPledgers () = let - val baseDues = 5.0 - fun makeRow [id, name, amount, j] = {id = C.intFromSql id, name = C.stringFromSql name, balance = C.realFromSql amount, joinedThisMonth = C.boolFromSql j} --- 310,313 ---- |