cgi-bin/help/publications.pl

   1 use strict;
   2 use warnings;
   3 use CXGN::Page;
   4 use File::Slurp qw/slurp/;
   5 use CatalystX::GlobalContext '$c';
   6
   7 my $documents_folder= $c->config->{'basepath'} . $c->config->{'documents_subdir'};
   8 my $page=CXGN::Page->new('SOL Publications','john');
   9 my $PUBLICATIONS=slurp("$documents_folder/SGNpublications.txt")||'';
  10 $page->header('SGN Publications','SGN Publications');
  11 print $PUBLICATIONS;
  12 $page->footer();