mason/blast/show_seq/html.mas

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