hcoop-cvs

[Adam C. <ad...@us...>]

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