package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
HTML::Mason::Component::FileBased->new(
'code' => sub {
use utf8; local $SGN::View::Mason::Commands::m = $HTML::Mason::Commands::m;
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 1 "/home/production/cxgn/sgn/mason/homepage/events.mas"
$m->print( '
' );
#line 2 "/home/production/cxgn/sgn/mason/homepage/events.mas"


use strict;
use CXGN::Tools::File;
use File::Spec;

my $file = File::Spec->catfile($c->get_conf('homepage_files_dir'), 'events.txt');
my $contents = qq { Events are currently not available<br /><br /> };

eval { 
 $contents = CXGN::Tools::File::get_sections($file);
};

#line 16 "/home/production/cxgn/sgn/mason/homepage/events.mas"
$m->print( '

<div>
' );
#line 19 "/home/production/cxgn/sgn/mason/homepage/events.mas"
$m->print(  $contents  );
#line 19 "/home/production/cxgn/sgn/mason/homepage/events.mas"
$m->print( '
<a href="oldevents.pl">See all events...</a>
</div>


' );
;return;
},
'load_time' => 1763079528,

)
;