*
*)
-open Dbconn;;
open Utility;;
open Intersect;;
(*
* implementazione delle funzioni dublin core
*)
-let rec fun_ex tab = function
+let rec fun_ex handle tab = function
[] -> []
| s::tl -> let res =
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let q = ("select " ^ tab ^ ".uri from " ^ tab ^ " where " ^ tab ^ ".value = '" ^ s ^ "'") in
pgresult_to_string_list (c#exec q)
in
- append (res,(fun_ex tab tl))
+ append (res,(fun_ex handle tab tl))
;;