HCoop
/
bpt
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Low balance reminders
[bpt/portal.git]
/
init.sig
diff --git
a/init.sig
b/init.sig
index
85000bf
..
360b94e
100644
(file)
--- a/
init.sig
+++ b/
init.sig
@@
-1,12
+1,15
@@
signature INIT = sig
structure C : SQL_CLIENT
signature INIT = sig
structure C : SQL_CLIENT
+ val scratchDir : string
val urlPrefix : string
val boardEmail : string
exception Access of string
exception NeedTos
val urlPrefix : string
val boardEmail : string
exception Access of string
exception NeedTos
+ val emailSuffix : string
+
type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
app : int}
type user = {id : int, name : string, rname : string, bal : int, joined : C.timestamp,
app : int}
@@
-14,6
+17,9
@@
signature INIT = sig
val mkUserRow : C.value list -> user
val mkUserRow : C.value list -> user
+ (* Direct access to database connections *)
+ val conn : unit -> C.conn
+
(* Open or close a session, wrapped in a transaction *)
val init : unit -> unit
val done : unit -> unit
(* Open or close a session, wrapped in a transaction *)
val init : unit -> unit
val done : unit -> unit
@@
-41,4
+47,4
@@
signature INIT = sig
val dateString : unit -> string
val grandfatherUsers : unit -> unit
val dateString : unit -> string
val grandfatherUsers : unit -> unit
-end
\ No newline at end of file
+end