Merge branch 'topic/image_upload'
[sgn.git] / mason / homepage / oldevents.mas
blob17da05c60e61f6bbe98e1581a455e00486c06409
1 <%once>
2 use strict;
3 use File::Spec;
4 </%once>
6 <%perl>
8 my $file =File::Spec->catfile($c->get_conf('homepage_files_dir'), "events.txt");
10 my $news = qq { <p class="boxbgcolor5"><br />The past and present SOL events are currently unavailable due to a server problem. We apologize for any inconvenience. Please check back later.<br /><br /></p><br /><br /> };
12 eval {
13   $news = $m->file($file);
17 </%perl>
19 <& /page/page_title.mas, title=>'Past and present SOL Events' &>
21 <% $news %>