lib/SGN/Controller/Search/Phenome.pm

   1 package SGN::Controller::Search::Phenome;
   2 use Moose;
   3 use namespace::autoclean;
   4 use SGN::View::Stock qw/stock_link stock_organisms stock_types breeding_programs /;
   5
   6 use YAML::Any qw/LoadFile/;
   7
   8 BEGIN { extends 'Catalyst::Controller' }
   9
  10 sub auto : Private {
  11     $_[1]->stash->{template} = '/search/phenotypes/stub.mas';
  12 }
  13
  14 #DEPRECATED by SGN::Controller::Stock stock_search
  15 #sub stock_search : Path('/search/stocks') Args(0) {
  16 #    my ( $self, $c ) = @_;
  17 #    my $db_name = $c->config->{trait_ontology_db_name} || 'SP';
  18 #    my $schema  = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
  19 #    $c->stash(
  20 #       template          => '/search/stocks.mas',
  21 #        stock_types       => stock_types($schema),
  22 #       organisms         => stock_organisms($schema) ,
  23 #       trait_db_name     => $db_name,
  24 #       breeding_programs => breeding_programs($schema),
  25 #       );
  26 #}
  27
  28 sub qtl_search : Path('/search/phenotypes/qtl') Path('/search/phenotypes') Args(0) {
  29     my $self = shift;
  30     my $c = shift;
  31     $c->stash->{template} = '/search/phenotypes/qtl.mas';
  32 }
  33
  34 sub trait_search : Path('/search/phenotypes/traits') Args(0) {
  35     my $self = shift;
  36     my $c = shift;
  37     my $db_name = $c->config->{trait_ontology_db_name} || 'SP';
  38     $c->stash->{db_name} = $db_name;
  39     $c->stash(
  40         template => '/search/phenotypes/traits.mas',
  41         trait_db_name => $db_name,
  42         );
  43 }
  44
  45
  46 1;