Skip to content
Snippets Groups Projects
Commit 4649ac7f authored by Kieron Taylor's avatar Kieron Taylor :angry:
Browse files

Fix dodgy juettemann code, remove needless dependency on Regulation.

parent 4778200f
No related branches found
No related tags found
No related merge requests found
...@@ -55,7 +55,6 @@ use strict; ...@@ -55,7 +55,6 @@ use strict;
use POSIX; use POSIX;
use Bio::EnsEMBL::Utils::Cache; use Bio::EnsEMBL::Utils::Cache;
use Bio::EnsEMBL::Utils::Exception qw(throw warning); use Bio::EnsEMBL::Utils::Exception qw(throw warning);
use Bio::EnsEMBL::Funcgen::Utils::EFGUtils qw(dump_data);
use Bio::EnsEMBL::DBSQL::BaseFeatureAdaptor; use Bio::EnsEMBL::DBSQL::BaseFeatureAdaptor;
use Bio::EnsEMBL::UnmappedObject; use Bio::EnsEMBL::UnmappedObject;
use Bio::EnsEMBL::Analysis; use Bio::EnsEMBL::Analysis;
...@@ -318,13 +317,15 @@ sub store{ ...@@ -318,13 +317,15 @@ sub store{
if(! eval{ $sth_reason->execute(); 1 }){ if(! eval{ $sth_reason->execute(); 1 }){
# DBI Trace possible here? # DBI Trace possible here?
warn $@; warning($@); #
my $msg; my $msg;
$msg .= "INSERT INTO unmapped_reason (summary_description, full_description) VALUES ("; $msg .= "INSERT INTO unmapped_reason (summary_description, full_description) VALUES (";
$msg .= $uo->{'summary'} .','. $uo->{'description'}. ')'; $msg .= $uo->{'summary'} .','. $uo->{'description'}. ')';
warn("Qeury: \n$msg"); # Temporary fix for naughty cross-dependency regulation code.
use Data::Dumper;
warning("Query: \n$msg");
print STDERR "UnmappedObject: \n"; print STDERR "UnmappedObject: \n";
print STDERR dump_data($uo,1,1); print STDERR Dumper $uo;
$sth_fetch_reason->execute($uo->{'description'}); $sth_fetch_reason->execute($uo->{'description'});
...@@ -357,7 +358,7 @@ sub store{ ...@@ -357,7 +358,7 @@ sub store{
$sth_unmapped_object->bind_param(8,$uo->{'ensembl_id'},SQL_INTEGER); $sth_unmapped_object->bind_param(8,$uo->{'ensembl_id'},SQL_INTEGER);
$sth_unmapped_object->bind_param(9,$uo->{'ensembl_object_type'},SQL_VARCHAR); $sth_unmapped_object->bind_param(9,$uo->{'ensembl_object_type'},SQL_VARCHAR);
$sth_unmapped_object->execute(); $sth_unmapped_object->execute();
$uo->dbID($self->last_insert_id('unmpapped_object_id', undef, 'unmapped_object')); $uo->dbID($self->last_insert_id('unmapped_object_id', undef, 'unmapped_object'));
} }
$sth_reason->finish(); $sth_reason->finish();
return; return;
......
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