Commit 1490e147 authored by James Gilbert's avatar James Gilbert
Browse files

get_mark now returns hash ref preserving strand info

parent 02c7983a
......@@ -32,10 +32,17 @@ sub get_mark {
my $hash = $result->reply->[0][1];
my $start = abs($hash->{'start'});
my $end = abs($hash->{'end'});
if ($end < $start) {
my $strand = 1;
if ($start > $end) {
$strand = -1;
($start, $end) = ($end, $start);
}
return ($start, $end);
return {
start => $start,
end => $end,
strand => $strand,
};
}
sub load_features {
......
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