From 659c4859b3410653422e116c9baa940c99157660 Mon Sep 17 00:00:00 2001 From: natile Date: Mon, 4 Nov 2002 19:05:52 +0000 Subject: [PATCH] Fun patched. --- helm/ocaml/mathql_interpreter/func.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/helm/ocaml/mathql_interpreter/func.ml b/helm/ocaml/mathql_interpreter/func.ml index 26b4fa96c..8bc0c8d10 100644 --- a/helm/ocaml/mathql_interpreter/func.ml +++ b/helm/ocaml/mathql_interpreter/func.ml @@ -38,9 +38,8 @@ let rec fun_ex tab = function [] -> [] | s::tl -> let res = let c = pgc () in - let q = ("select objectName.uri from objectName where objectName.value = '" ^ s ^ "'") in -(* print_endline ("@@@@LA QUERY E': " ^ q); *) - 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,(fun_ex tab tl)) ;; -- 2.39.2