lib/SGN/Controller/Search/StocksUsingGenotypes.pm

   1
   2 package SGN::Controller::Search::StocksUsingGenotypes;
   3
   4 use Moose;
   5 use URI::FromHash 'uri';
   6
   7 BEGIN { extends 'Catalyst::Controller' };
   8
   9 sub search_stocks_using_genotypes : Path('/search/stocks_using_genotypes') Args(0) {
  10     my $self = shift;
  11     my $c = shift;
  12
  13     if (!$c->user()) {
  14         # redirect to login page
  15         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  16         return;
  17     }
  18
  19     $c->stash->{template} = '/search/stocks_using_genotypes.mas';
  20
  21 }
  22
  23 1;