Skip to content
Snippets Groups Projects
Commit 55b2097d authored by Arne Stabenau's avatar Arne Stabenau
Browse files

ori wasnt set right in Exon.

External Gene get repaired now.
parent 89203bac
No related branches found
No related tags found
No related merge requests found
......@@ -247,6 +247,9 @@ sub _new_Exon_from_hashRef {
$exon->attach_seq($self->{rchash}{$hashRef->{'contig_id'}}->primary_seq);
$exon->contig( $self->{rchash}{$hashRef->{'contig_id'}} );
$exon->seqname($hashRef->{'cid'});
$exon->ori_start( $exon->start );
$exon->ori_end( $exon->end );
$exon->ori_strand( $exon->strand );
# maybe we should cache this.
......
......@@ -197,13 +197,13 @@ sub get_Ensembl_Genes_contig_list{
}
foreach my $gene (@genes) {
if (my $contig = $gc{$gene->id}) {
if (my $contig = $gc{$gene->dbID}) {
push(@{$cg{$contig}},$gene);
}
}
$self->cg(\%cg);
print STDERR "Returning ".scalar(@genes)." $genes[0] genes...\n";
# print STDERR "Returning ".scalar(@genes)." $genes[0] genes...\n";
return @genes;
}
}
......
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