cgi-bin/search/gem_platform_search.pl

   1 ######################################################################
   2 #
   3 #  Search the expression database and display the results.
   4 #
   5 #  Adapted to the search framework by Aureliano Bombarely, 18/01/10
   6 #
   7 ######################################################################
   8
   9 use strict;
  10
  11 use CXGN::Page;
  12 use CXGN::Page::FormattingHelpers qw/blue_section_html info_section_html page_title_html columnar_table_html/;
  13 use CXGN::Search::CannedForms;
  14 use CXGN::Searches::GemPlatform;
  15
  16 my $page=CXGN::Page->new("Expression search results by platform", "Aure");
  17 $page->header();
  18
  19 print page_title_html('Expression search results by platform');
  20
  21 #create the search and query objects
  22 my $search = CXGN::Searches::GemPlatform->new();
  23 my $query = $search->new_query();
  24 $search->page_size(20); #results shown per page
  25
  26 #get the parameters
  27 my %params = $page->get_all_encoded_arguments();
  28
  29 $query->from_request(\%params);
  30
  31 if(%params)
  32 {
  33         my $result = $search->do_search($query);  #execute the search
  34         my @test = $query->to_sql();
  35         my @results;
  36
  37         while(my $r = $result->next_result())
  38         {
  39                 #fields in result objs appear in the order in which they're registered with has_parameter() in the query class
  40                 push @results, ["<a href=\"/gem/platform.pl?id=" . $r->[0] . "\">" . $r->[1] . "</a>"];
  41         }
  42
  43         #build the HTML to output
  44         my $pagination_html = $search->pagination_buttons_html($query, $result);
  45
  46         my $results_html = <<EOH;
  47         <div id="searchresults">
  48 EOH
  49
  50         $results_html .= columnar_table_html(headings => ['Platform'],
  51                          data => \@results, __alt_freq => 2);
  52
  53         $results_html .= <<EOH;
  54         </div>
  55         $pagination_html
  56 EOH
  57
  58         if(@results)
  59         {
  60                 print blue_section_html('Results', , sprintf('<span class="paginate_summary">%s matches </span>', $result->total_results(), $result->time), $results_html);
  61         }
  62         else
  63         {
  64                 print '<span class=""><h4>No matches found</h4></span>';
  65         }
  66         print info_section_html(title => 'Search again', contents =>CXGN::Search::CannedForms::expr_platform_search_form($page, $query));
  67 }
  68
  69 $page->footer();