lib/SGN/Controller/AJAX/Reports.pm

   1
   2 package SGN::Controller::AJAX::Reports;
   3
   4 use Moose;
   5 use CXGN::DbStats;
   6
   7 BEGIN { extends "Catalyst::Controller::REST" };
   8
   9 __PACKAGE__->config(
  10     default   => 'application/json',
  11     stash_key => 'rest',
  12     map       => { 'application/json' => 'JSON' },
  13    );
  14
  15
  16 sub database_counts :Path('/ajax/reports/database_counts') Args(0) {
  17     my $self = shift;
  18     my $c = shift;
  19
  20     my $dbs = CXGN::DbStats->new( { dbh => $c->dbc->dbh() } );
  21
  22     my $data = $dbs->database_counts();
  23
  24     $c->stash->{template} = { data => $data };
  25 }
  26
  27 sub recent_activity :Path('/ajax/report/recent_activity') Args(0) {
  28     my $self = shift;
  29     my $c = shift;
  30
  31     my $start_date = $c->req->param("start_date");
  32     my $end_date = $c->req->param("end_date");
  33
  34     my $dbs = CXGN::DbStats->new( { dbh => $c->dbc->dbh() } );
  35
  36     my $field_trial_data = $dbs->recent_trials($start_date, $end_date);
  37
  38     my $genotyping_plate_data = $dbs->recent_genotyping_plates($start_date, $end_date);
  39
  40     my $accession_data = $dbs->recent_stocks($start_date, $end_date);
  41
  42     my $cross_data = $dbs->recent_crosses($start_date, $end_date);
  43
  44     my $phenotype_data = $dbs->recent_phenotype_data($start_date, $end_date);
  45
  46     return {
  47         trial_data => $field_trial_data,
  48         accession_data => $accession_data,
  49         cross_data => $cross_data,
  50         phenotype_data => $phenotype_data,
  51     };
  52
  53 }
  54
  55
  56
  57
  58
  59 1;