diff --git a/tools/human_genome_variation/ctd.pl b/tools/human_genome_variation/ctd.pl index 7f445a82f65..a2a823f9111 100755 --- a/tools/human_genome_variation/ctd.pl +++ b/tools/human_genome_variation/ctd.pl @@ -1,8 +1,5 @@ -#!/usr/bin/env perl - +#!/usr/bin/perl -w use strict; -use warnings; - use LWP::UserAgent; require HTTP::Cookies; @@ -54,6 +51,9 @@ my @form = ('inputType', $type, 'inputTerms', $d, 'report', $resType, if ($resType eq 'cgixns') { #only add if this type push(@form, 'actionTypes', $actType); } +if ($resType eq 'go' or $resType eq 'go_enriched') { + push(@form, 'ontology', 'go_bp', 'ontology', 'go_mf', 'ontology', 'go_cc'); +} my $ua = LWP::UserAgent->new; $ua->cookie_jar(HTTP::Cookies->new( () )); $ua->agent('Mozilla/5.0'); diff --git a/tools/human_genome_variation/ctd.xml b/tools/human_genome_variation/ctd.xml index 93146b6e41f..4c0ab896975 100644 --- a/tools/human_genome_variation/ctd.xml +++ b/tools/human_genome_variation/ctd.xml @@ -1,7 +1,7 @@ analysis of chemicals, diseases, or genes #if $inType.inputType=="disease" #ctd.pl $input $numerical_column $inType.inputType $inType.report ANY $out_file1 -#else if $inType.reportType.report=="cgixns" #ctd.pl $input $numerical_column $inType.inputType $inType.reportType.report $inType.reportType.actType $out_file1 +#else if $inType.reportType.report=="cgixns" #ctd.pl $input $numerical_column $inType.inputType $inType.reportType.report "$inType.reportType.actType" $out_file1 #else #ctd.pl $input $numerical_column $inType.inputType $inType.reportType.report ANY $out_file1 #end if @@ -18,14 +18,13 @@ - + + - - - + @@ -33,6 +32,12 @@ + + + + + + @@ -45,13 +50,7 @@ - - - - - - - + @@ -117,30 +116,29 @@ - - - - + + + + + + - - + + - - - - + - + @@ -155,15 +153,6 @@ - - - - - - - - -