cgi-bin/search/library_search.pl

   1 ######################################################################
   2 #
   3 #  Search the library database and display the results.
   4 #
   5 #  Adapted to the search framework by Evan Herbst, 1 / 14 / 07
   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::Library;
  15
  16 my $page=CXGN::Page->new("EST library search results", "Evan");
  17 $page->header();
  18
  19 print page_title_html('Library search results');
  20
  21 #create the search and query objects
  22 my $search = CXGN::Searches::Library->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 $query->from_request(\%params);
  29
  30 if(%params)
  31 {
  32         my $result = $search->do_search($query);  #execute the search
  33         my @results;
  34         while(my $r = $result->next_result())
  35         {
  36                 #fields in result objs appear in the order in which they're registered with has_parameter() in the query class
  37                 push @results, ["<a href=\"/content/library_info.pl?library=" . $r->[2] . "\">" . $r->[2] . "</a>", "<i>" . $r->[8] . "</i>", $r->[7], $r->[3]];
  38         }
  39
  40         #build the HTML to output
  41         my $pagination_html = $search->pagination_buttons_html($query, $result);
  42
  43         my $results_html = <<EOH;
  44         <div id="searchresults">
  45 EOH
  46
  47         $results_html .= columnar_table_html(headings => ['Name', 'Organism', 'Tissue', 'Development Stage'],
  48                                                                                                                 data => \@results, __alt_freq => 2);
  49
  50         $results_html .= <<EOH;
  51         </div>
  52         $pagination_html
  53 EOH
  54
  55         if(@results)
  56         {
  57                 print blue_section_html('Results', , sprintf('<span class="paginate_summary">%s matches </span>', $result->total_results(), $result->time), $results_html);
  58         }
  59         else
  60         {
  61                 print '<span class=""><h4>No matches found</h4></span>';
  62         }
  63         print info_section_html(title => 'Search again', contents =>CXGN::Search::CannedForms::library_search_form($page, $query));
  64 }
  65
  66 $page->footer();