Merge pull request #4106 from solgenomics/topic/wishlist
[sgn.git] / mason / feature / feature_cvterms.mas
blob8ed1965fc3ee50f8398f2123112b43d65e074b08
1 <%args>
2     $feature
3 </%args>
5 % my @fcvt = $feature->search_related('feature_cvterms', undef, { prefetch => { 'cvterm' => 'dbxref' } } );
6 % if( @fcvt ) {
7 <ul style="padding-left: 1em">
9 %   for my $fcvt ( @fcvt ) {
10 %     my $cvt    = $fcvt->cvterm;
11 %     my $dbxref = $cvt->dbxref;
13 %     next unless $dbxref;
14 %     my $db     = $dbxref->db;
15       <li>
16          <a href="<% $db->urlprefix .  $db->url .  $dbxref->accession %>"><% $db->name %>:<% $dbxref->accession %></a>
17          &ndash;
18          <% cvterm_link( $fcvt->cvterm ) %>
19       </li>
20 %   }
22 </ul>
23 % }
26 <%once>
27   use SGN::View::Feature qw/ cvterm_link /;
28 </%once>