lib/SGN/Controller/Audit.pm

   1 package SGN::Controller::Audit;
   2
   3 use Moose;
   4
   5 use POSIX;
   6 use Data::Dumper;
   7 use Storable qw | nstore retrieve |;
   8 use List::Util qw/sum/;
   9 use Bio::SeqIO;
  10 use CXGN::Tools::Text qw/ sanitize_string /;
  11 #use SGN::Schema;
  12 use URI::FromHash 'uri';
  13
  14
  15 BEGIN { extends 'Catalyst::Controller'; }
  16
  17 sub AUTO {
  18     my $self = shift;
  19     my $c = shift;
  20 }
  21
  22 sub index :Path('/about/audit') :Args(0) {
  23   my $self = shift;
  24   my $c = shift;
  25   if (! $c->user) {
  26     $c->res->redirect(uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  27     return;
  28   }
  29   $c->stash->{template} = '/about/audit.mas';
  30 }
  31
  32
  33
  34
  35 1;