attempt to add basic taxon constraint info with things we now find in…

… the neighborhood json; pass at #56
geneontology · Nov 29, 2023 · 5db564b · 5db564b
1 parent c6a4840
commit 5db564b
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 0 deletions.
diff --git a/perl/lib/AmiGO/WebApp/HTMLClient.pm b/perl/lib/AmiGO/WebApp/HTMLClient.pm
@@ -1588,6 +1588,24 @@ sub mode_term_details {
   #$self->set_template_parameter('NEIGHBORHOOD_INFO', Dumper($nay_info));
   $self->set_template_parameter('NEIGHBORHOOD_INFO', $nay_info);
 
+  ###
+  ### Taxon constraints.
+  ###
+
+  my $tc = [];
+  foreach my $parent (@{$nay_info->{parents}}){
+    if( $parent->{acc} =~ /^NCBITaxon/ ){
+      push @$tc,
+	{
+	 taxon_rel_acc => $parent->{rel},
+	 taxon_name => $parent->{name},
+	 taxon_acc => $parent->{acc},
+	 taxon_link => $parent->{link}
+	};
+    }
+  }
+  $self->set_template_parameter('TAXON_CONSTRAINTS', $tc);
+
   ###
   ### Bridge variables from old system.
   ###

diff --git a/templates/html/bs3/common/term_details_main.tmpl b/templates/html/bs3/common/term_details_main.tmpl
@@ -118,6 +118,27 @@
 		      title="See term history.">history for [% TERM_INFO.acc %]</a> at QuickGO</dd>
       [% END %]
 
+      <!-- Taxon constraints. -->
+      <dt>Taxon info</dt>
+      [% IF TAXON_CONSTRAINTS.size == 0 %]
+      <dd>None</dd>
+      [% ELSE %]
+      [%  FOREACH xtrain = TAXON_CONSTRAINTS %]
+      <dd>
+	[% IF xtrain.taxon_rel_acc == 'RO:0002160' %]
+	<i>only in taxon</i>
+	[% ELSIF xtrain.taxon_rel_acc == 'RO:0002161' %]
+	<i>never in taxon</i>
+	[% ELSIF xtrain.taxon_rel_acc == 'RO:0002162' %]
+	<i>in taxon</i>
+	[% ELSE %]
+	[% xtrain.taxon_rel_acc %]
+	[% END %]
+	<a href="[% xtrain.taxon_link %]">[% xtrain.taxon_name %]</a>
+      </dd>
+      [%  END %]
+      [% END %]
+
       <!-- Subsets -->
       <dt>Subset</dt>
       [% IF TERM_INFO.subsets.size != 0 %]