(*
* implementazione delle funzioni dublin core
*)
-let rec func_dc tab outv inv = function
+let rec fun_ex tab = function
[] -> []
| s::tl -> let res =
let c = pgc () in
- let q = ("select " ^ tab ^ "." ^ outv ^ " from " ^ tab ^ " where " ^ tab ^ "." ^ inv ^ " = '" ^ s ^ "'") in
- pgresult_to_string_list (c#exec q)
+ let q = ("select " ^ tab ^ ".uri from " ^ tab ^ " where " ^ tab ^ ".value = '" ^ s ^ "'") in
+ pgresult_to_string_list (c#exec q)
in
- append (res,(func_dc tab outv inv tl))
-;;
-
-(*
- *
- *)
-let fun_ex f value =
- match f with
- "name" -> func_dc "names" "name" "uri" value
- | "reference" -> func_dc "names" "uri" "name" value
- | _ -> []
+ append (res,(fun_ex tab tl))
;;