package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
#line 1 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"

use strict;
use File::Spec;
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 5 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->print( '
' );
#line 6 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"


my $file =File::Spec->catfile($c->get_conf('homepage_files_dir'), "events.txt");

my $news = qq { <p class="boxbgcolor5"><br />The past and present events are currently unavailable due to a server problem. We apologize for any inconvenience. Please check back later.<br /><br /></p><br /><br /> };

eval {
  $news = $m->file($file);
};


#line 18 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->print( '
' );
#line 19 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->comp(   '/page/page_title.mas', title=>'Past and Present Events'   
); #line 19 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->print( '

' );
#line 21 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->print(  $news  );
#line 21 "/home/production/cxgn/sgn/mason/homepage/oldevents.mas"
$m->print( '
' );
;return;
},
'load_time' => 1763131511,

)
;