lib/SGN/Controller/Search.pm

   1 package SGN::Controller::Search;
   2 use Moose;
   3 use URI::FromHash 'uri';
   4 use namespace::autoclean;
   5 use Data::Dumper;
   6
   7 use CXGN::Search::CannedForms;
   8 use CXGN::Page::Toolbar::SGN;
   9 use CXGN::Glossary qw(get_definitions create_tooltips_from_text);
  10
  11 # this is suboptimal
  12 use CatalystX::GlobalContext qw( $c );
  13
  14 BEGIN {extends 'Catalyst::Controller'; }
  15
  16 =head1 NAME
  17
  18 SGN::Controller::Search - SGN Search Controller
  19
  20 =head1 DESCRIPTION
  21
  22 SGN Search Controller. Most, but not all, search code interacts with this
  23 controller. This controller defines the general search interface that used to
  24 live at direct_search.pl, and links to all other kinds of search.
  25
  26 =cut
  27
  28 sub auto : Private {
  29     $_[1]->stash->{template} = '/search/stub.mas';
  30 }
  31
  32 =head1 PUBLIC ACTIONS
  33
  34 =cut
  35
  36 =head2 glossary
  37
  38 Public path: /search/glossary
  39
  40 Runs the glossary search.
  41
  42 =cut
  43
  44 sub glossary : Path('/search/glossary') :Args() {
  45     my ( $self, $c, $term ) = @_;
  46     my $response;
  47     if($term){
  48         my @defs = get_definitions($term);
  49         unless (@defs){
  50             $response = "<p>Your term was not found. <br> The term you searched for was $term.</p>";
  51         } else {
  52             $response = "<hr /><dl><dt>$term</dt>";
  53             for my $d (@defs){
  54                 $response .= "<dd>$d</dd><br />";
  55             }
  56             $response .= "</dl>";
  57         }
  58     } else {
  59         $response =<<DEFAULT;
  60 <hr />
  61 <h2>Glossary search</h2>
  62 <form action="#" method='get' name='glossary'>
  63 <b>Search the glossary by term:</b>
  64 <input type = 'text' name = 'getTerm' size = '50' tabindex='0' />
  65 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  66 <input type = 'submit' value = 'Lookup' /></form>
  67 <script type="text/javascript" language="javascript">
  68 document.glossary.getTerm.focus();
  69 </script>
  70
  71 DEFAULT
  72     }
  73
  74     $c->stash(
  75         content  => $response,
  76     );
  77
  78 }
  79
  80 =head2 old_direct_search
  81
  82 Public path: /search/direct_search.pl
  83
  84 Redirects to the new search functionality.
  85
  86 =cut
  87
  88 sub old_direct_search : Path('/search/direct_search.pl') {
  89     my ( $self, $c ) = @_;
  90
  91     my $term = $c->req->param('search');
  92
  93     $term =~ s/[{}\n\r;'"]//g;
  94
  95     # map the old direct_search param to the new scheme
  96     $term = {
  97         cvterm_name => 'qtl',
  98
  99         qtl         => 'phenotypes/qtl',
 100         marker      => 'markers',
 101
 102         # expression
 103         platform    => 'expression/platform',
 104         template    => 'expression/template',
 105         experiment  => 'expression/experiment',
 106
 107         # transcripts
 108         est_library => 'transcripts/est_library',
 109         est         => 'transcripts/est',
 110         unigene     => 'transcripts/unigene',
 111         library     => 'transcripts/est_library',
 112
 113         template_experiment_platform => 'expression',
 114
 115         bacs        => 'genomic/clones',
 116
 117         phenotype_qtl_trait => 'phenotypes',
 118
 119
 120     }->{$term} || $term;
 121     $c->res->redirect('/search/'.$term, 301 );
 122 }
 123
 124 =head2 search_index
 125
 126 Public path: /search/index.pl, /search/
 127
 128 Display a search index page.
 129
 130 =cut
 131
 132 sub search_index : Path('/search/index.pl') Path('/search') Args(0) {
 133     my ( $self, $c ) = @_;
 134
 135     $c->stash->{template} = '/search/advanced_search.mas';
 136 }
 137
 138 sub family_search : Path('/search/family') Args(0) {
 139     $_[1]->stash->{content} = CXGN::Search::CannedForms->family_search_form();
 140 }
 141
 142 sub marker_search : Path('/search/markers') Args(0) {
 143     my ( $self, $c ) = @_;
 144     my $dbh   = $c->dbc->dbh;
 145     my $mform = CXGN::Search::CannedForms::MarkerSearch->new($dbh);
 146     $c->stash->{content} =
 147         '<form action="/search/markers/markersearch.pl">'
 148         . $mform->to_html()
 149         . '</form>';
 150
 151 }
 152
 153 sub bac_search : Path('/search/genomic/clones') Args(0) {
 154     $_[1]->stash->{content} = CXGN::Search::CannedForms->clone_search_form();
 155 }
 156
 157 sub directory_search : Path('/search/directory') Args(0) {
 158     $_[1]->stash->{content} = CXGN::Search::CannedForms->people_search_form();
 159 }
 160
 161 #sub gene_search : Path('/search/loci') Args(0) {
 162 #    $_[1]->stash->{content} = CXGN::Search::CannedForms->gene_search_form();
 163 #}
 164
 165 sub images_search : Path('/search/images') Args(0) {
 166     my $self = shift;
 167     my $c = shift;
 168     $c->stash->{template} = '/search/images.mas';
 169     #$_[1]->stash->{content} = CXGN::Search::CannedForms->image_search_form(); ####DEPRECATED CGIBIN CODE
 170 }
 171
 172 sub bulk_search : Path('/search/bulk') Args(0) {
 173     my $self = shift;
 174     my $c = shift;
 175
 176     if (!$c->user()) {
 177         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
 178         $c->detach();
 179     }
 180
 181     $c->stash->{template} = '/search/bulk.mas';
 182 }
 183
 184 =head1 AUTHOR
 185
 186 Converted to Catalyst by Jonathan "Duke" Leto, then heavily refactored
 187 by Robert Buels
 188
 189 =head1 LICENSE
 190
 191 This library is free software. You can redistribute it and/or modify
 192 it under the same terms as Perl itself.
 193
 194 =cut
 195
 196 __PACKAGE__->meta->make_immutable;
 197
 198 1;