Commit 93896f0f authored by Ian Longden's avatar Ian Longden
Browse files

remove old interpro xrefs and unmapped_objects

parent 5393a615
......@@ -435,12 +435,23 @@ GSQL
## Dump interpro xrefs and interpro table
# use NO_MAPPING as unmapped_reason
# remove the old set
# dump xrefs;
# dump unmapped reasons
# set xref status to dumped
$transaction_start_sth->execute();
#delete old set
# 1 delete unmapped_object
# 2 delete xrefs
my $del_x_sth = $self->core->dbc->prepare('delete x from xref x, external_db e where x.external_db_id = e.external_db_id and e.db_name like "interpro"') || die "Could not prepare interpro xref deletion";
$del_x_sth->execute() || die "Problem executing deletion of interpro xrefs";
my $del_uo_sth = $self->core->dbc->prepare('delete x from unmapped_object x, external_db e where x.external_db_id = e.external_db_id and e.db_name like "interpro"') || die "Could not prepare interpro unmapped_object deletion";
$del_uo_sth->execute() || die "Problem executing deletion of interpro xrefs";
my $get_xref_interpro_sth = $self->xref->dbc->prepare("select x.xref_id, x.accession, x.version, x.label, x.description, x.info_type, x.info_text from xref x ,source s where s.source_id = x.source_id and s.name like 'Interpro'");
my $get_interpro_sth = $self->xref->dbc->prepare("select interpro, pfam from interpro");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment