lib/SGN/Controller/BreedersToolbox/TrialComparison.pm

   1
   2 package SGN::Controller::BreedersToolbox::Trial::TrialComparison;
   3
   4 use Moose;
   5 use URI::FromHash 'uri';
   6 our $VERSION = '0.01';
   7
   8 BEGIN { extends 'Catalyst::Controller'; }
   9
  10 sub trial_comparison_input :Path('/tools/trial/comparison/list') Args(0) {
  11     my $self = shift;
  12     my $c = shift;
  13
  14     if (! $c->user) {
  15         $c->res->redirect(uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  16         return;
  17     }
  18     $c->stash->{template} = '/tools/trial_comparison/index.mas';
  19
  20 }
  21
  22 sub trial_comparison_params :Path('/tools/trial/comparison/params') Args(0) {
  23     my $self = shift;
  24     my $c = shift;
  25
  26     my @trial_names = $c->req->param("trial_name");
  27     my $cvterm_id = $c->req->param("cvterm_id");
  28     $c->stash->{trial_names} = \@trial_names;
  29     $c->stash->{cvterm_id} = $cvterm_id;
  30     $c->stash->{template} = '/tools/trial_comparison/no_list.mas';
  31 }
  32
  33 1;