Commit 16056298 authored by Andy Yates's avatar Andy Yates
Browse files

Stop returning more than 1 region from the service

parent f0cdbdea
...@@ -125,14 +125,10 @@ sub fetch_info { ...@@ -125,14 +125,10 @@ sub fetch_info {
my $sa = $self->db()->get_adaptor('Slice'); my $sa = $self->db()->get_adaptor('Slice');
my $slices = $sa->fetch_all('toplevel'); my $slices = $sa->fetch_all('toplevel');
my @top_level_seq_region_names; my %unique = map { $_->seq_region_name(), 0 } @{$slices};
my $names = [sort { $a cmp $b } keys %unique];
if ($slices) { $assembly_info{'top_level_seq_region_names'} = $names;
@top_level_seq_region_names = sort(map { $_->seq_region_name() } @$slices);
}
$assembly_info{'top_level_seq_region_names'} = \@top_level_seq_region_names;
return \%assembly_info; return \%assembly_info;
} }
......
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