mason/blast/show_seq/html.mas

   1 <%args>
   2   $seq
   3   $highlight_coords
   4   $source
   5   $format_links => []
   6   $blast_url => undef
   7 </%args>
   8
   9 <& /page/page_title.mas, title => $seq->id &>
  10 <%once>
  11         use Number::Bytes::Human ();
  12 </%once>
  13 <%init>
  14         my $seq_bytes = $seq->length*1.018+length($seq->id)+length($seq->desc)+1;
  15 </%init>
  16 <div style="text-align: right; margin: 0 10px 1em 0">
  17   <b>Whole sequence (<% Number::Bytes::Human::format_bytes($seq_bytes) %>B):</b>
  18   <% join ' | ',
  19      map {
  20            my ($name,$link) = @$_;
  21            qq|<a href="$link">$name</a>|
  22      } @$format_links
  23   %>
  24 </div>
  25
  26 <& /sequence/highlighted.mas,
  27    seq    => $seq,
  28    source => $source,
  29    highlight_coords      => $highlight_coords,
  30    highlight_description => 'BLAST matches',
  31    blast_url => $blast_url,
  32  &>