let tables_to_clean =
- [sort_tbl; rel_tbl; obj_tbl; (*conclno_tbl; fullno_tbl; hypno_tbl;*) name_tbl;
- count_tbl]
+ [sort_tbl; rel_tbl; obj_tbl; name_tbl; count_tbl]
let clean ~(dbd:Mysql.dbd) =
let owned_uris = (* list of uris in list-of-columns format *)
- let query = sprintf "SELECT source FROM %s" (obj_tbl ()) in
+ let query = sprintf "SELECT source FROM %s" (name_tbl ()) in
let result = Mysql.exec dbd query in
let uris = Mysql.map result (fun cols ->
match cols.(0) with