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