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