X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2Ffunc.ml;h=8bc0c8d10d273cc8eb6d2908758406b348cd2c74;hb=89262281b6e83bd2321150f81f1a0583645eb0c8;hp=26b4fa96c8fcfacd64df5a0983d5c3e4f649d6d6;hpb=8a279dd3b4c7562099933bcb45e386ccc1ca156e;p=helm.git

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))
 ;;