Commit 6d9d07aa authored by Ian Longden's avatar Ian Longden
Browse files

removed debugging prints

parent bcdad8a3
...@@ -93,9 +93,7 @@ sub new { ...@@ -93,9 +93,7 @@ sub new {
EXTERNAL_DB_ID IDENTIFIER QUERY_SCORE TARGET_SCORE EXTERNAL_DB_ID IDENTIFIER QUERY_SCORE TARGET_SCORE
SUMMARY FULL_DESC ENSEMBL_ID ENSEMBL_OBJECT_TYPE ADAPTOR)], @_); SUMMARY FULL_DESC ENSEMBL_ID ENSEMBL_OBJECT_TYPE ADAPTOR)], @_);
print STDERR "\n1\n$identifier\n\n".ref($analysis)."\n\n";
my $self = $class->SUPER::new(@_); my $self = $class->SUPER::new(@_);
print STDERR "\n2\n$identifier\n\n".ref($analysis)."\n\n";
if(defined($analysis)) { if(defined($analysis)) {
if(!ref($analysis) || !$analysis->isa('Bio::EnsEMBL::Analysis')) { if(!ref($analysis) || !$analysis->isa('Bio::EnsEMBL::Analysis')) {
throw('-ANALYSIS argument must be a Bio::EnsEMBL::Analysis not '. throw('-ANALYSIS argument must be a Bio::EnsEMBL::Analysis not '.
...@@ -103,7 +101,6 @@ sub new { ...@@ -103,7 +101,6 @@ sub new {
} }
} }
else{ else{
print STDERR "\n3\n$identifier\n\n".ref($analysis)."\n\n";
throw('-ANALYSIS argument must be given'); throw('-ANALYSIS argument must be given');
} }
$self->{'analysis'} = $analysis; $self->{'analysis'} = $analysis;
...@@ -323,9 +320,7 @@ sub external_db_name{ ...@@ -323,9 +320,7 @@ sub external_db_name{
my $self = shift; my $self = shift;
my $handle = $self->{'adaptor'}; my $handle = $self->{'adaptor'};
print STDERR "\nhandle is ".$handle."\nid = ".$self->{'external_db_id'}."\n\n";
if(defined($handle)){ if(defined($handle)){
print STDERR ref($handle)."\n";
my $sth = $handle->prepare("select db_name from external_db where external_db_id = ".$self->{'external_db_id'}); my $sth = $handle->prepare("select db_name from external_db where external_db_id = ".$self->{'external_db_id'});
$sth->execute(); $sth->execute();
my $name; my $name;
...@@ -341,9 +336,7 @@ sub stable_id{ ...@@ -341,9 +336,7 @@ sub stable_id{
my ($self) = shift; my ($self) = shift;
my $handle = $self->{'adaptor'}; my $handle = $self->{'adaptor'};
print STDERR "\nhandle is ".$handle."\nid = ".$self->{'ensembl_id'}."\n\n";
if(defined($handle)){ if(defined($handle)){
print STDERR ref($handle)."\n";
my $sql = "select stable_id from ".lc($self->{'ensembl_object_type'})."_stable_id where ". my $sql = "select stable_id from ".lc($self->{'ensembl_object_type'})."_stable_id where ".
lc($self->{'ensembl_object_type'})."_id = ". lc($self->{'ensembl_object_type'})."_id = ".
$self->{'ensembl_id'}; $self->{'ensembl_id'};
......
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