*)
-
-
open Union;;
open Dbconn;;
open Utility;;
;;
-let relation_ex inv rop path rset assl =
+let relation_ex handle inv rop path rset assl =
let relk = fst path in
match relk with
(* print_endline "IN BACKPOINTER"; *)
let prop = get_prop_id relk in
if assl = [] then (* se non ci sono assegnamenti *)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let tv = pgresult_to_string (c#exec ("select id from registry where uri='" ^ quoted uri ^ "'")) in
else (* con assegnamenti *)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let tv = pgresult_to_string (c#exec ("select id from registry where uri='" ^ quoted uri ^ "'")) in
| "refRel" -> (* proprietà refRel *)
if assl = [] then [] (* se non ci sono assegnamenti *)
-(* let c = pgc () in
+(* let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri from hrefRel order by uri asc" in
else (* con assegnamenti *)
if inv then (* INVERSA *)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri, position, depth from hrefRel order by uri asc" in
in
edup rset_list
else (* DIRETTA, con risorsa nulla *)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select position, depth from hrefRel order by uri asc" in
| "refSort" -> (* proprietà refSort *)
if assl = [] then [] (* se non ci sono assegnamenti *)
-(* let c = pgc () in
+(* let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri from hrefSort order by uri asc" in
else (* con assegnamenti *)
if inv then (*INVERSA ----> SISTEMARE: vedi refRel!!!!*)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri, position, depth, sort from hrefSort order by uri asc" in
edup rset_list
else (* DIRETTA con risorsa vuota ----> SISTEMARE: vedi refRel!!!!*)
- let c = pgc () in
+ let c = MQIConn.pgc handle in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select position, depth, sort from hrefSort order by uri asc" in
(* prende un resource_set, una vvar (primo el. di assl) a cui associare la posizione, e la relazione (refObj o backPointer) e per ogni resource chiama la muse
NOTA: "rop" per ora non viene usato perche' vale sempre "ExactOp" *)
-let relation_galax_ex inv rop path rset assl = []
+let relation_galax_ex handle inv rop path rset assl = []
(*