-val get_links_from_section : Dbi.connection -> int -> string -> string list
-val update_links_for_page : Dbi.connection -> int -> string -> unit
-val insert_link : Dbi.connection -> int -> string -> string -> unit
-
-val what_links_here : Dbi.connection -> int -> string -> (string * string) list
+val get_links_from_section : PGOCaml.pa_pg_data PGOCaml.t -> int32 -> string -> string list
+val update_links_for_page : PGOCaml.pa_pg_data PGOCaml.t -> int32 -> string -> unit
+val insert_link : PGOCaml.pa_pg_data PGOCaml.t -> int32 -> string -> string -> unit
+val what_links_here : PGOCaml.pa_pg_data PGOCaml.t -> int32 -> string -> (string * string) list