cgi-bin/search/image_search.pl

   1 ######################################################################
   2 # #### DEPRECATED CGIBIN CODE ########################################
   3 #
   4 #  Search the image database and display the results.
   5 #
   6 ######################################################################
   7
   8 use strict;
   9
  10 use CXGN::Searches::Images;
  11 use CXGN::Page;
  12 use CXGN::Page::FormattingHelpers qw/blue_section_html
  13     info_section_html
  14     page_title_html
  15     columnar_table_html
  16     /;
  17 use CXGN::Search::CannedForms;
  18 #################################################
  19
  20 # Start a new SGN page.
  21 my $page=CXGN::Page->new("SGN image search results","Jessica");
  22 $page->header();
  23
  24 print page_title_html('Image search results');
  25
  26 #create the search and query objects
  27 my $search = CXGN::Searches::Images->new;
  28 my $query = $search->new_query;
  29 $search->page_size(30); #set 30 images per page
  30
  31 #get the parameters
  32 my %params = $page->get_all_encoded_arguments;
  33
  34 $query->from_request(\%params);
  35
  36 if(%params) {
  37     my $result = $search->do_search($query);
  38     my @results;
  39
  40     while(my $r = $result->next_result) {
  41         my $image_id = $r->[0];
  42
  43         my $image_description = $r->[2];
  44         if( length($image_description) < 1 ) {
  45             $image_description = "---";
  46         }
  47
  48         my $image_filename = $r->[3];
  49         my $submitter_id = $r->[4];
  50
  51         my $submitter_first = $r->[5];
  52         if( length($submitter_first) < 1 ) {
  53             $submitter_first = "---";
  54         }
  55
  56         my $submitter_last = $r->[6];
  57         if( length($submitter_last) < 1 ) {
  58             $submitter_last = "---";
  59         }
  60
  61         # Put all submitter data in one variable
  62         my $submitter_string = "";
  63
  64         unless ( $submitter_first eq "---" ) {
  65             $submitter_string .= $submitter_first;
  66             $submitter_string .= " ";
  67         }
  68
  69         unless ( $submitter_last eq "---" ) {
  70             $submitter_string .= $submitter_last;
  71         }
  72
  73         # Image id, image filename, and submitter id can't be null, but everything else can be.
  74
  75         push @results, [$image_description, '<a href="/image/index.pl?image_id='.$r->[0].'">'.$image_filename.'</a>', '<a href="/solpeople/personal-info.pl?sp_person_id='.$r->[4].'">'.$submitter_string.'</a>'];
  76     }
  77
  78 #build the HTML to output
  79     my $pagination_html = $search->pagination_buttons_html( $query, $result );
  80
  81
  82     my $results_html = <<EOH;
  83     <div id="searchresults">
  84 EOH
  85
  86         $results_html .= columnar_table_html(headings => ['Image Description',
  87                                                           'Image Filename',
  88                                                           'Submitter (ID) Name'],
  89                                              data => \@results,
  90                                              );
  91
  92     $results_html .= <<EOH;
  93     </div>
  94         $pagination_html
  95 EOH
  96
  97
  98         if (@results) {
  99             print blue_section_html('Image search results', ,sprintf('<span class="paginate_summary">%s matches </span>', $result->total_results,$result->time),$results_html);
 100         }else {
 101             print '<h4>No matches found</h4>';
 102         }
 103
 104     print info_section_html(title    => 'Search again',
 105                             contents =>CXGN::Search::CannedForms::image_search_form($page,$query)
 106                             );
 107
 108 }
 109
 110
 111
 112 $page->footer();
 113
 114 #############
 115