lib/SGN/Controller/BreedersToolbox/Fieldmap.pm

   1 use strict;
   2
   3 package SGN::Controller::BreedersToolbox::Fieldmap;
   4
   5 use Moose;
   6 use CXGN::Dataset;
   7 use URI::FromHash 'uri';
   8 use Data::Dumper;
   9 BEGIN { extends 'Catalyst::Controller'; }
  10
  11 sub fieldmap :Path('/tools/fieldmap') {
  12   my $self =shift;
  13   my $c = shift;
  14   if (! $c->user) {
  15         $c->res->redirect(uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  16         return;
  17   }
  18   my $trial_id = $c->request->param('trial_id');
  19
  20   $c->stash->{trial_id} = $trial_id;
  21   $c->stash->{template} = '/tools/fieldmap.mas';
  22 }
  23 1;