Commit 2e7dad86 authored by Sebastien Carrere's avatar Sebastien Carrere

Bug parsing orthomclV2 : inversion code espece/locus_tag par rapport a V1

parent 9e33fea7
......@@ -301,7 +301,7 @@ sub __ParseOrthomclLine
foreach my $item (@a_rawmembers)
{
my ($acc, $code) = ($item =~ /(\S+)\|(\S+)/);
my ($code, $acc) = ($item =~ /([^\|]+)\|(\S+)/);
$rh_orthomcl->{$groupid}->{$code} = [] unless defined($rh_orthomcl->{$groupid}->{$code});
push(@{$rh_orthomcl->{$groupid}->{$code}}, $acc);
}
......
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