added a comment section..
[sgn.git] / mason / homepage / events.mas
bloba3230faf91f1f0f2f034ba0c5a5f92ec06a1fe2c
2 <%perl>
4 use strict;
5 use CXGN::Tools::File;
6 use CXGN::VHost;
7 use File::Spec;
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 /> };
13 eval { 
14  $contents = CXGN::Tools::File::get_sections($file);
17 </%perl>
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>