mason/genomes/index.mas

   1 <%args>
   2   $genome_organisms => []
   3 </%args>
   4 <%doc>
   5
   6 =head1 NAME
   7
   8 /genome/index.mas - display an index page for the available genomes
   9
  10 =head1 ARGS
  11
  12 =head2 genome_organisms
  13
  14 Arrayref of BCS Organism rows to display links for.
  15
  16 =head1 AUTHOR
  17
  18 Lukas Mueller
  19
  20 =cut
  21
  22 </%doc>
  23
  24 <& /page/page_title.mas, title=> "Genome Projects" &>
  25
  26 <div style="width: 30em; margin: 0 auto">
  27
  28   <% @links ? @links : '<div class="ghosted" style="text-align: center">none found</div>' %>
  29
  30 </div>
  31
  32 <%init>
  33
  34   my @links =
  35      sort
  36      uniq
  37      map {
  38          my $species = $_->species;
  39          my $oid     = $_->organism_id;
  40          qq|<a href="/organism/$oid/genome" style="font-style: italic; display: block">$species</a>\n|
  41      }
  42      @$genome_organisms;
  43
  44 </%init>
  45 <%once>
  46   use List::AllUtils 'uniq';
  47 </%once>