mason/feature/show_relations.mas

   1 <%args>
   2     $relations
   3     $title
   4 </%args>
   5 <%once>
   6     use SGN::View::Feature qw/cvterm_link/;
   7 </%once>
   8 % if (@$relations) {
   9 <&| /page/info_section.mas,
  10     title => $title,
  11     collapsible => 1,
  12     is_subsection => 1,
  13 &>
  14 % for my $relation (@$relations) {
  15 % my $word = $relation->[0] =~ m/derives_from/ ? '' : ' is ';
  16     <% $relation->[1] . $word %>
  17     <b><% $relation->[0] %>
  18     </b> this feature.
  19     <br/>
  20 % }
  21
  22 </&>
  23 % }