hopefully last iteration of AGM/allele for 2.3

WormBase · Nov 1, 2019 · ef4ea53 · ef4ea53
1 parent e5cf07b
commit ef4ea53
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/scripts/AGR/make_agr_AGM.pl b/scripts/AGR/make_agr_AGM.pl
@@ -30,6 +30,8 @@
 	my @strains = $aceVar->Strain;
 	next unless @strains; # for the alleles without curated strain data
 	foreach my $strain(@strains){
+		# skip the ones without disease annotation
+                next unless $strain->Disease_info;
 	        $strains{"$strain"}||=[];
 		push @{$strains{"$strain"}},"$id";
 	}

diff --git a/scripts/AGR/make_agr_allele_json.pl b/scripts/AGR/make_agr_allele_json.pl
@@ -54,7 +54,7 @@
 
 my $db = Ace->connect(-path => $acedbpath,  -program => $tace) or die("Connection failure: ". Ace->error);
 
-$it = $db->fetch_many(-query => 'find Variation WHERE Live AND COUNT(Gene) == 1 AND (Description OR Interactor OR Disease_info) AND NOT Natural_variant');
+$it = $db->fetch_many(-query => 'find Variation WHERE Live AND COUNT(Gene) == 1 AND (Phenotype OR Disease_info) AND NOT Natural_variant');
 
 while (my $obj = $it->next) {
   next unless $obj->isObject();