X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/4b8df0b1e0ef6900d3d78b7169cb5d662ed6c657..9396e2cfdeace50cb2d5adfc507a77718e2eea08:/app.sig

diff --git a/app.sig b/app.sig
index d4c0a66..e169a44 100644
--- a/app.sig
+++ b/app.sig
@@ -7,9 +7,14 @@ sig
 	   | REJECTED
 	   | ADDED
 
-    type app = { id : int, name : string, rname : string, email : string,
+    val readTosBody : unit -> string
+    val readTosAgree : unit -> string
+    val readTosMinorAgree : unit -> string
+
+    type app = { id : int, name : string, rname : string, gname : string option, email : string,
 		 forward : bool, uses : string, other : string,
 		 passwd : string, status : status, applied : Init.C.timestamp,
+		 ipaddr : string option,
 		 confirmed : Init.C.timestamp option, decided : Init.C.timestamp option,
 		 msg : string }