lib/SGN/Controller/List.pm

   1 package SGN::Controller::List;
   2
   3 use Moose;
   4 use URI::FromHash 'uri';
   5 use Data::Dumper;
   6
   7
   8 BEGIN { extends 'Catalyst::Controller'; }
   9
  10
  11 sub list_details :Path('/list/details') :Args(0) {
  12     my $self = shift;
  13     my $c = shift;
  14     my $list_id = $c->req->param('list_id');
  15
  16     if (! $c->user()) {
  17         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  18         return;
  19     }
  20
  21     my $list = CXGN::List->new( { dbh => $c->dbc->dbh, list_id=>$list_id });
  22
  23     $c->stash->{list_id} = $list_id;
  24     $c->stash->{list_name} = $list->name;
  25     $c->stash->{list_description} = $list->description;
  26     $c->stash->{list_type} = $list->type;
  27     $c->stash->{list_size} = $list->list_size;
  28     $c->stash->{template} = '/list/list_details.mas';
  29
  30 }
  31
  32
  33
  34 1;