lib/SGN/Controller/DbStats.pm

   1
   2 package SGN::Controller::DbStats;
   3
   4 use Moose;
   5 use Data::Dumper;
   6
   7 BEGIN { extends 'Catalyst::Controller' };
   8
   9 sub dbstats :Path('/breeders/dbstats') Args(0) {
  10     my $self = shift;
  11     my $c = shift;
  12
  13     my $sp_person_id = $c->user() ? $c->user->get_object()->get_sp_person_id() : undef;
  14     my $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado', $sp_person_id);
  15     my $projects = CXGN::BreedersToolbox::Projects->new( { schema=> $schema } );
  16     my $breeding_programs = $projects->get_breeding_programs();
  17     #print STDERR Dumper $breeding_programs;
  18
  19     $c->stash->{breeding_programs} = $breeding_programs;
  20     $c->stash->{template} = '/breeders_toolbox/db_stats.mas';
  21 }
  22
  23 sub recent_activity :Path('/dbstats/recent_activity') Args(0) {
  24     my $self = shift;
  25     my $c = shift;
  26
  27     $c->stash->{template} = '/dbstats/recent_activity.mas';
  28 }
  29
  30
  31
  32 1;