lib/SGN/Controller/NOAANCDC.pm

   1
   2 package SGN::Controller::NOAANCDC;
   3
   4 use Moose;
   5 use URI::FromHash 'uri';
   6 use Data::Dumper;
   7
   8 BEGIN { extends 'Catalyst::Controller' };
   9
  10 sub noaa_ncdc_analysis :Path('/noaa_ncdc_analysis') Args(0) {
  11     my $self = shift;
  12     my $c = shift;
  13
  14     my $sp_person_id = $c->user() ? $c->user->get_object()->get_sp_person_id() : undef;
  15     my $schema = $c->dbic_schema("Bio::Chado::Schema", undef, $sp_person_id);
  16     my $user_id;
  17     if ($c->user()) {
  18         $user_id = $c->user->get_object()->get_sp_person_id();
  19     }
  20     if (!$user_id) {
  21         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  22     }
  23
  24     $c->stash->{template} = '/breeders_toolbox/noaa_ncdc_analysis.mas';
  25 }
  26
  27 1;