X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/f49e1088a3c5fbcc48bed202de376b407a23a9ba..9da4f9396351fe3a5877fc3a782d97edc5607ca3:/money.sig

diff --git a/money.sig b/money.sig
index 7ec8b7b..4195a87 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
@@ -27,4 +29,16 @@ sig
 
     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
+
+    val delinquentPledgers : unit -> { id : int, name : string, shares : int, balance : real } list
+    val resetPledges : int list -> unit
+
+    val freezeworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
+    val bootworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
+
+    val billDues : {descr : string, base : real, date : string} -> unit
+end