signature POLL = sig
- type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int}
+ type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int, official : bool, ready : bool}
val lookupPoll : int -> poll
val listPolls : unit -> poll list
val listCurrentPolls : unit -> poll list
val listPollsLimit : int -> poll list
- val addPoll : int * string * string * string * string * int -> int
+ val addPoll : int * string * string * string * string * int * bool * bool -> int
val modPoll : poll -> unit
val deletePoll : int -> unit
(* These operate on poll IDs. *)
val countVoters : int -> int
val listPollVoters : int -> Init.user list
+
+ val votingMembershipRequirement : int
+
+ val membershipLength : int -> int
end