mason/homepage/events.mas

   1
   2 <%perl>
   3
   4 use strict;
   5 use CXGN::Tools::File;
   6 use File::Spec;
   7
   8 my $file = File::Spec->catfile($c->get_conf('homepage_files_dir'), 'events.txt');
   9 my $contents = qq { Events are currently not available<br /><br /> };
  10
  11 eval {
  12  $contents = CXGN::Tools::File::get_sections($file);
  13 };
  14
  15 </%perl>
  16
  17
  18 <div>
  19 <% $contents %>
  20 <a href="oldevents.pl">See all events...</a>
  21 </div>
  22
  23