mason/homepage/oldhighlights.mas

   1
   2 <%perl>
   3 use strict;
   4 use File::Spec;
   5
   6 my $file=File::Spec->catfile($c->get_conf('homepage_files_dir'), 'news.txt');
   7
   8 my $highlights = qq{ <p class="boxbgcolor5"><br />News are not available at the moment. We apologize for any inconvenience. Please check back later.<br /><br /></p> };
   9
  10 eval {
  11   $highlights = $m->file($file);
  12 };
  13
  14 </%perl>
  15
  16 <& /page/page_title.mas, title=>'All past SGN news items' &>
  17
  18 <% $highlights %>
  19