in case there are more than one strain

WormBase · Nov 1, 2019 · e5cf07b · e5cf07b
1 parent 14dbc76
commit e5cf07b
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/scripts/AGR/make_agr_AGM.pl b/scripts/AGR/make_agr_AGM.pl
@@ -26,11 +26,13 @@
 
 while (my $id = shift @ids){
 	$id =~s/WB://;
-	my $aceVar = $db->fetch(Variation => $id);
-	my $strain = $aceVar->Strain;
-	next unless $strain; # for the alleles without curated strain data
-        $strains{"$strain"}||=[];
-	push @{$strains{"$strain"}},"$id";
+	my $aceVar  = $db->fetch(Variation => $id);
+	my @strains = $aceVar->Strain;
+	next unless @strains; # for the alleles without curated strain data
+	foreach my $strain(@strains){
+	        $strains{"$strain"}||=[];
+		push @{$strains{"$strain"}},"$id";
+	}
 }
 
 my @annotation;