mason/homepage/news.mas

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