mason/homepage/events.mas

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