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::VHost;
  24 use CXGN::Tools::File;
  25
  26 my $vh = CXGN::VHost->new();
  27
  28 my $publications = "The publication of the week is currently unavailable.<br /><br />";
  29
  30 eval {
  31
  32  $publications = CXGN::Tools::File::get_sections(File::Spec->catfile($vh->get_conf('homepage_files_dir'), "publications.txt"));
  33
  34 };
  35
  36 </%perl>
  37
  38 <div class="boxbgcolor1" style="margin:0px;">
  39 <div class="boxheading">Featured publication</div>
  40 <div class="boxcontent"><% $publications %>
  41 <a href="oldpublications.pl">See all publications...</a></div>
  42
  43 </div>