lib/SGN/Controller/Calendar.pm

   1
   2 package SGN::Controller::Calendar;
   3
   4 use Moose;
   5
   6 use Data::Dumper;
   7
   8
   9 use CXGN::Calendar;
  10 use SGN::Model::Cvterm;
  11
  12 BEGIN { extends 'Catalyst::Controller'; }
  13
  14
  15 sub personal_calendar :Path('/calendar/personal/') :Args(0) {
  16     my $self = shift;
  17     my $c = shift;
  18
  19     my $breeding_programs = CXGN::Calendar->get_breeding_program_roles($c);
  20
  21     $c->stash->{roles} = $breeding_programs;
  22     $c->stash->{template} = '/calendar/personal.mas';
  23 }
  24
  25 1;