mason/homepage/publication_of_the_week.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5 publication_of_the_week.mas - a mason module to display an html section with news, read from a file.
   6
   7 =head1 DESCRIPTION
   8
   9 The module does not require any parameters. If the file read does not succeed, an error message is displayed.
  10
  11 =head1 AUTHOR
  12
  13 Lukas Mueller <lam87@cornell.edu>
  14
  15 =cut
  16
  17 </%doc>
  18
  19 <%perl>
  20
  21 use strict;
  22 use File::Spec;
  23 use CXGN::Tools::File;
  24
  25 my $publications = "The publication of the week is currently unavailable.<br /><br />";
  26
  27 eval {
  28
  29  $publications = CXGN::Tools::File::get_sections(File::Spec->catfile($c->get_conf('homepage_files_dir'), "publications.txt"));
  30
  31 };
  32
  33 </%perl>
  34
  35 <div class="boxbgcolor1" style="margin:0px;">
  36 <div class="boxheading">Featured publication</div>
  37 <div class="boxcontent"><% $publications %>
  38 <a href="oldpublications.pl">See all publications...</a></div>
  39
  40 </div>