lib/SGN/Controller/BreedersToolbox/TrialComparison.pm

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