Commit 1b592c4c authored by Arne Stabenau's avatar Arne Stabenau
Browse files

feature pairs have now contigs

parent 2966d9ca
......@@ -453,6 +453,7 @@ sub _parse_features {
my $hstrand = $f[0]->hstrand;
my $contig = $f[0]->contig();
my $name = $f[0]->seqname;
my $hname = $f[0]->hseqname;
my $score = $f[0]->score;
......@@ -702,7 +703,11 @@ sub _parse_features {
$feature1->score($score);
$feature1->percent_id($percent);
$feature1->p_value($pvalue);
$feature1->seqname($name);
if( $contig ) {
$feature1->contig($contig);
} else {
$feature1->seqname($name);
}
$feature1->phase($phase);
$feature1->analysis($analysis);
$feature1->validate;
......
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