54 lines
1.4 KiB
OCaml
54 lines
1.4 KiB
OCaml
(* $Id: updateFam.mli,v 5.4 2007-01-19 01:53:17 ddr Exp $ *)
|
|
(* Copyright (c) 1998-2007 INRIA *)
|
|
|
|
open Config
|
|
open Def
|
|
open Gwdb
|
|
|
|
val person_key : base -> iper -> Update.key
|
|
(** Returns the update key associated to a person *)
|
|
|
|
val print_update_fam :
|
|
config ->
|
|
base ->
|
|
(Update.key, ifam, string) gen_family
|
|
* Update.key gen_couple
|
|
* Update.key gen_descend ->
|
|
string ->
|
|
unit
|
|
(** The main page for updating families. *)
|
|
|
|
val print_add : config -> base -> unit
|
|
(** Displays the form for adding families *)
|
|
|
|
val print_mod : config -> base -> unit
|
|
(** Displays a form for updating a family *)
|
|
|
|
val print_del : config -> base -> unit
|
|
(** Displays a page for validating the deletion of the family in argument *)
|
|
|
|
val print_inv : config -> base -> unit
|
|
(** Displays a menu for inverting the order of two families *)
|
|
|
|
val print_add_parents : config -> base -> unit
|
|
(** Associates parents to a person *)
|
|
|
|
val change_order : person -> ifam -> int -> ifam list
|
|
(** [change_order p f i]
|
|
Returns the families of `p` where `f` is at the ith position.
|
|
`i` must not be 0. *)
|
|
|
|
val print_change_order : config -> base -> unit
|
|
(** Displays a menu to change the family order *)
|
|
|
|
val print_change_event_order : config -> base -> unit
|
|
(** Displays the form for changing the order of events for a family *)
|
|
|
|
val string_family_of :
|
|
config ->
|
|
base ->
|
|
ifam ->
|
|
(Update.key, ifam, string) gen_family
|
|
* Update.key gen_couple
|
|
* Update.key gen_descend
|