mason/feature/feature_cvterms.mas

   1 <%args>
   2     $feature
   3 </%args>
   4
   5 % my @fcvt = $feature->search_related('feature_cvterms', undef, { prefetch => { 'cvterm' => 'dbxref' } } );
   6 % if( @fcvt ) {
   7 <ul style="padding-left: 1em">
   8
   9 %   for my $fcvt ( @fcvt ) {
  10 %     my $cvt    = $fcvt->cvterm;
  11 %     my $dbxref = $cvt->dbxref;
  12
  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 %   }
  21
  22 </ul>
  23 % }
  24
  25
  26 <%once>
  27   use SGN::View::Feature qw/ cvterm_link /;
  28 </%once>