mason/secretom/signalp_search_result.mas

   1 <%args>
   2   $data
   3   $query
   4   $headings
   5   $csv_download
   6 </%args>
   7
   8 <& /page/page_title.mas, title => 'SecreTary SignalP TargetP Result Search' &>
   9
  10 <h3 style="text-align: center">Searched for "<% $query |h%>".</h3>
  11
  12 <&| /page/info_section.mas, title => 'Results', subtitle => @$data." results &mdash; ".qq|<a href="$csv_download">[Download spreadsheet]</a>| &>
  13
  14 %  if( @$data ) {
  15 %    foreach my $row ( @$data ) {
  16 %       $row->[0] = link_identifier( $row->[0] ) || $row->[0];
  17 %       $row->[1] =~ s/^\s*\|\s*//;
  18    <&| /page/info_section.mas, title => 'Hit: '.$row->[0], is_subsection => 1 &>
  19      <% $table->( $row, [ 0,2,3 ] ) %>
  20      <% $table->( $row, [ 1 ] ) %>
  21      <% $table->( $row, [ 4,5,6 ] ) %>
  22         <% $table->( $row, [ 7,8,9 ] ) %>
  23         <% $table->( $row, [ 10 ] ) %>
  24           <% $table->( $row, [ 11,12 ] ) %>
  25    </&>
  26 %    }
  27 %  } else {
  28    <h3 style="text-align: center">No results found matching "<% $query |h %>".</h3>
  29 %  }
  30
  31 </&>
  32
  33 <%init>
  34 use List::MoreUtils qw/ mesh /;
  35 use CXGN::Page::FormattingHelpers qw/ info_table_html /;
  36 use CXGN::Tools::Identifiers qw/ link_identifier /;
  37
  38 my $table = sub {
  39     my ( $row, $order, %other ) = @_;
  40
  41     my @row = @{$row}[ @$order ];
  42     my @h = @{$headings}[ @$order ];
  43
  44     return info_table_html( mesh( @h, @row ),  __multicol => 5, __border => 0, %other );
  45
  46 };
  47
  48 </%init>