name2 name1 (HMysql.escape buri)
let direct_deps refObj uri =
- sprintf "SELECT * FROM %s WHERE source = '%s';"
+ 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';"
+ sprintf "SELECT * FROM %s WHERE h_occurrence = \"%s\";"
(HMysql.escape refObj) (UriManager.string_of_uri uri)