X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fmetadata%2FsqlStatements.ml;h=86cffbd1be7f610476aa935c3948f999cfadc43d;hb=c74f1dccc79f51f860a5b4e7ef67762823174d50;hp=42fcebec0f65b523f21f0ca89f5d82d6b2bd4820;hpb=ee3f8d6fa92b051394a2ff7c71c03ac33a05182b;p=helm.git

diff --git a/helm/software/components/metadata/sqlStatements.ml b/helm/software/components/metadata/sqlStatements.ml
index 42fcebec0..86cffbd1b 100644
--- a/helm/software/components/metadata/sqlStatements.ml
+++ b/helm/software/components/metadata/sqlStatements.ml
@@ -202,7 +202,13 @@ let move_content (name1, tbl1) (name2, tbl2) buri =
   assert (tbl1 = tbl2);
   sprintf 
     "INSERT INTRO %s SELECT * FROM %s WHERE source LIKE \"%s%%\";"   
-    name2 name1 buri
+    name2 name1 (HMysql.escape buri)
 
+let direct_deps refObj uri =
+  sprintf "SELECT * FROM %s WHERE source = \"%s\";"
+    (HMysql.escape refObj) (UriManager.string_of_uri uri)
+
+let inverse_deps refObj uri =
+  sprintf "SELECT * FROM %s WHERE h_occurrence = \"%s\";"
+    (HMysql.escape refObj) (UriManager.string_of_uri uri)
 
-