(fun uri ->
let uri = Pcre.replace ~rex:xpointer_RE ~templ:"" uri in
List.iter
- (fun suffix -> Http_getter.unregister (uri ^ suffix))
+ (fun suffix ->
+ (*prerr_endline ("unregistering " ^ uri ^ suffix);*)
+ Http_getter.unregister (uri ^ suffix))
+
[""; ".body"; ".types"])
owned_uris;
List.iter (fun statement ->
[obj_tbl;sort_tbl;rel_tbl;name_tbl;(*conclno_tbl;conclno_hyp_tbl*)count_tbl];
(* and now the debug job *)
let dbg_q =
- sprintf "SELECT source FROM %s WHERE h_occurrence LIKE '%s%%'" obj_tbl suri
+ sprintf "SELECT source FROM %s WHERE h_occurrence LIKE '%s%%'" obj_tbl
+ (Mysql.escape suri)
in
try
let rc = Mysql.exec dbd dbg_q in