let rigth_only = Some (List.map torigth_restriction only) in
let result =
MQueryInterpreter.execute mqi_handle
- (MQueryGenerator.searchPattern
+ (MQueryGenerator.query_of_constraints None
(rigth_must,[],[]) (rigth_only,None,None)) in
let uris =
List.map