X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/8d347a3306ce7cc6e744183f0d4229f09d3f7101..c1c67ba5119f23d728975d516756f3f61a492efc:/money.sig

diff --git a/money.sig b/money.sig
index e35df38..235c3d8 100644
--- a/money.sig
+++ b/money.sig
@@ -14,6 +14,8 @@ sig
     val listUsers : int -> (bool * Init.user) list
     (* List users and indicate whether they participated in a transaction *)
 
+    val lookupHostingUsage : int -> string option
+
     type charge = {trn : int, usr : int, amount : real}
 
     val addCharge : charge -> unit
@@ -21,10 +23,14 @@ sig
     val listChargesWithNames : int -> (string * charge) list
 
     val clearCharges : int -> unit
-    val applyCharges : Init.C.conn -> int -> unit
+    val applyCharges : int -> unit
 
     val addEvenCharges : int * int list -> unit
 
     type hosting = {trn : int, cutoff : int, cost : real, usage : string}
     val addHostingCharges : hosting -> unit
-end
\ No newline at end of file
+
+    val equalizeBalances : unit -> unit
+
+    val costBase : real -> real
+end