mason/solgs/search/traits/list.mas

   1 <%doc>
   2 A subset of GS traits list.
   3 </%doc>
   4
   5 <%args>
   6
   7 $index
   8 $traits_list
   9
  10 </%args>
  11 <%perl>
  12 my $table;
  13
  14 if (@$traits_list) {
  15   $table  = qq | <table id="traits_starting_with_index_table" class="table table-condensed table-striped"> |;
  16   $table .= qq | <thead><tr><td>Trait</td><td>Definition</td></tr></thead><tbody> |;
  17
  18   foreach my $trait (@$traits_list) {
  19     $table .= qq | <tr> |;
  20     $table .= qq | <td> $trait->[0] </td> |;
  21     $table .= qq | <td> $trait->[1] </td> |;
  22     $table .= qq | </tr> |;
  23   }
  24
  25   $table .= qq | </tbody> |;
  26   $table .= qq | </table> |;
  27
  28 } else {
  29   $table = qq | <p>There are no traits starting with $index </p> |;
  30 }
  31
  32 </%perl>
  33
  34 <div class="container">
  35   <& /page/page_title.mas,
  36      title=>'List of traits with GS data'
  37     &>
  38
  39     <&| /page/info_section.mas,
  40         title => qq |Traits beginning with "$index" |
  41       &>
  42
  43       <div id="traits_starting_with_index_div">
  44         <% $table %>
  45      </div>
  46
  47  </&>
  48 </div>