Poll administration

[hcoop/zz_old/portal.git] / poll.sig

signature POLL = sig
    type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int}

    val lookupPoll : int -> poll
    val listPolls : unit -> poll list
    val listPollsLimit : int -> poll list

    val addPoll : int * string * string * string * string * int -> int
    val modPoll : poll -> unit
    val deletePoll : int -> unit

    type choice = {id : int, pol : int, seq : real, descr : string}

    val lookupChoice : int -> choice
    val addChoice : int * real * string -> int
    val modChoice : choice -> unit
    val deleteChoice : int -> unit
    val listChoices : int -> choice list

    val vote : int * int * int list -> unit

    val dateLe : string * string -> bool
    val dateGeNow : string -> bool
    val dateLtNow : string -> bool

    val canModify : poll -> bool
    val requireCanModify : poll -> unit

    val nextSeq : int -> real
end