Skip to content
Snippets Groups Projects
Commit f003122c authored by Patrick Meidl's avatar Patrick Meidl
Browse files

bug fixes

parent a5de449a
No related branches found
No related tags found
No related merge requests found
......@@ -486,6 +486,8 @@ sub adjust_coords {
sub filter_overlaps {
my $self = shift;
my $id = $self->id;
return unless ($self->{'_match'});
foreach my $R_chr (sort keys %{ $self->{'_match'} }) {
# rearrange the datastructure so that we can find overlaps
......
......@@ -183,8 +183,8 @@ $support->log_stamped("Looping over non-aligned blocks...\n");
$sql = qq(SELECT * FROM tmp_align);
if ($support->param('chromosomes')) {
my $chr_string = join(", ", $support->param('chromosomes'));
$sql .= " WHERE ref_seq_region_name IN ($chr_string)";
my $chr_string = join("', '", $support->param('chromosomes'));
$sql .= " WHERE ref_seq_region_name IN ('$chr_string')";
}
$sth = $R_dbh->prepare($sql);
$sth->execute;
......
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