lib/SGN/Controller/Heritability.pm

   1 package SGN::Controller::Heritability;
   2
   3 use Moose;
   4
   5 use POSIX;
   6 use Data::Dumper;
   7 use Storable qw | nstore retrieve |;
   8 use List::Util qw/sum/;
   9 # use Bio::SeqIO;
  10 use CXGN::Tools::Text qw/ sanitize_string /;
  11 # use SGN::Schema;
  12 use URI::FromHash 'uri';
  13 use CXGN::Blast;
  14 use CXGN::Blast::SeqQuery;
  15
  16
  17 BEGIN { extends 'Catalyst::Controller'; }
  18
  19 sub AUTO {
  20     my $self = shift;
  21     my $c = shift;
  22     SGN::Schema::BlastDb->dbpath($c->config->{blast_db_path});
  23 }
  24
  25
  26 sub index :Path('/tools/heritability/') :Args(0) {
  27   my $self = shift;
  28   my $c = shift;
  29   if (! $c->user) {
  30     $c->res->redirect(uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  31     return;
  32   }
  33   $c->stash->{template} = '/tools/heritability/index.mas';
  34
  35 }
  36
  37 1;
  38
  39 # sub index :Path('/tools/heritability/')  Args(0) {
  40 #     my ($self, $c) = @_;
  41 #     $c->res->redirect(uri( path => '/tools/heritability', query => { goto_url => $c->req->uri->path_query } ) );
  42 #     $c->stash->{template} = template('/tools/heritability/index.mas');
  43 # }
  44 # 1;