X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/60754922b69172de5cb8b165918453d5e8c60022..6aa0cd21ab8b74949d95d375e22dae72a9f35b8c:/init.sig

diff --git a/init.sig b/init.sig
index 1c5f0a2..303e1be 100644
--- a/init.sig
+++ b/init.sig
@@ -1,5 +1,7 @@
 signature INIT = sig
     structure C : SQL_CLIENT
+    val nullableFromSql : (C.value -> 'a) -> C.value -> 'a option
+    val nullableToSql : ('a -> string) -> 'a option -> string
 
     val scratchDir : string
     val urlPrefix : string
@@ -11,7 +13,7 @@ signature INIT = sig
     val emailSuffix : string
 
     type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
-		 app : int, shares : int}
+		 app : int, shares : int, paypal : string option, checkout : string option }
 
     val rowError : string * C.value list -> 'a
 
@@ -59,4 +61,12 @@ signature INIT = sig
     val explain : exn -> string
     val tokens : unit -> string
     val tokensForked : unit -> unit
+
+    val usersDiff : string list * string list ->
+		    {onlyInFirst : string list, onlyInSecond : string list}
+    val listUsernames : unit -> string list
+    val usersInAfs : unit -> string list
+
+    val searchPaypal : string -> user list
+    val searchCheckout : string -> user list
 end