mason/homepage/news.mas

   1
   2 <%perl>
   3
   4 use strict;
   5
   6 use File::Spec;
   7 use CXGN::Tools::File;
   8 use CXGN::VHost;
   9
  10 my $vh = CXGN::VHost->new();
  11 my $file = File::Spec->catfile($vh->get_conf('homepage_files_dir'), 'news.txt');
  12
  13 my $contents = "News is not available at the moment.<br /><br />";
  14
  15 eval {
  16   $contents = CXGN::Tools::File::get_sections($file);
  17 };
  18
  19
  20 </%perl>
  21
  22 <div class="boxbgcolor1" style="margin:0px;">
  23 <div class="boxheading">News...</div>
  24 <div class="boxcontent"><% $contents %></div>
  25 <a href="oldhighlights.pl">See all news...</a>
  26 </div>