mason/homepage/oldpublications.mas

   1
   2 <%perl>
   3 use strict;
   4 use File::Spec;
   5 use CXGN::Tools::File;
   6 use CXGN::Page;
   7
   8 my $file=File::Spec->catfile($c->get_conf('homepage_files_dir'), 'publications.txt');
   9 my $page=CXGN::Page->new('Publications','john');
  10
  11
  12 my $publications = qq { <p class="boxbgcolor5"><br />Publications are not available at the moment due to a server problem. We apologize for the inconvenience. Please check back later.<br /><br /></p><br /><br /><br /><br /> };
  13
  14 eval {
  15
  16   $publications = $m->file($file);
  17
  18 };
  19
  20
  21 </%perl>
  22
  23 <& /page/page_title.mas, title=>"All Publications" &>
  24 <% $publications %>
  25