From 16056298be74061661d7d34591987c644252abdd Mon Sep 17 00:00:00 2001
From: Andrew Yates <ayates@ebi.ac.uk>
Date: Mon, 24 Sep 2012 11:55:23 +0000
Subject: [PATCH] Stop returning more than 1 region from the service
---
modules/Bio/EnsEMBL/DBSQL/AssemblyAdaptor.pm | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DBSQL/AssemblyAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/AssemblyAdaptor.pm
index 7eab69e73b..b66c70544c 100644
--- a/modules/Bio/EnsEMBL/DBSQL/AssemblyAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/AssemblyAdaptor.pm
@@ -125,14 +125,10 @@ sub fetch_info {
my $sa = $self->db()->get_adaptor('Slice');
my $slices = $sa->fetch_all('toplevel');
-
- my @top_level_seq_region_names;
-
- if ($slices) {
- @top_level_seq_region_names = sort(map { $_->seq_region_name() } @$slices);
- }
-
- $assembly_info{'top_level_seq_region_names'} = \@top_level_seq_region_names;
+
+ my %unique = map { $_->seq_region_name(), 0 } @{$slices};
+ my $names = [sort { $a cmp $b } keys %unique];
+ $assembly_info{'top_level_seq_region_names'} = $names;
return \%assembly_info;
}
--
GitLab