From 0b2c0a6b7a3499389962889b9a733bf272ec1d2b Mon Sep 17 00:00:00 2001
From: Daniel Rios <dr2@sanger.ac.uk>
Date: Fri, 10 Mar 2006 12:51:41 +0000
Subject: [PATCH] modified attribute groups to be an array ref
---
modules/Bio/EnsEMBL/DBSQL/MergedAdaptor.pm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/modules/Bio/EnsEMBL/DBSQL/MergedAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/MergedAdaptor.pm
index a537ef327d..3419de17d3 100644
--- a/modules/Bio/EnsEMBL/DBSQL/MergedAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/MergedAdaptor.pm
@@ -46,12 +46,12 @@ my $reg = "Bio::EnsEMBL::Registry";
=head2 new
Example : $MergedAdaptor = new
- : Bio::EnsEMBL::DBSQL::MergedAdaptor(-species=> 'human', -type =>'Population', -groups => 'Sanger,Ensembl');
+ : Bio::EnsEMBL::DBSQL::MergedAdaptor(-species=> 'human', -type =>'Population', -groups => ['Sanger','Ensembl']);
Arg [SPECIES]: (optional) string
species name to get adaptors for
Arg [TYPE] : (optional) string
type to get adaptors for
- Arg [GROUPS] : (optional) list of groups, separated by comma
+ Arg [GROUPS] : (optional) ref to list
Description: Creates a new MergedAdaptor
Returntype : Bio::EnsEMBL::DBSQL::MergedAdaptor
@@ -82,9 +82,7 @@ sub new {
}
else{
#get only specified adaptors for the particular groups
- $groups =~ s/\s+//g;
- my @groups = split /,/,$groups; #ge the list of groups in an array
- foreach my $group (@groups){
+ foreach my $group (@{$groups}){
push @adaps, $reg->get_adaptor($species,$group,$type);
}
}
--
GitLab