mason/homepage/tomato_genome_release.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 $publication = "The tomato genome release information is currently unavailable.<br /><br />";
  26
  27 eval {
  28
  29  $publication = CXGN::Tools::File::read_commented_file(File::Spec->catfile($c->get_conf('homepage_files_dir'), "tomato_genome_release.txt"));
  30
  31 };
  32
  33 if ($@) { print "ERROR $@\n"; }
  34
  35 </%perl>
  36
  37 <div class="boxbgcolor1" style="margin:0px;">
  38 <div class="boxheading">Current Tomato Genome version SL3.0 and Annotation ITAG3.10 <font color="red">       [ New ]</font>  </div>
  39
  40 <div class="boxcontent"><% $publication %>
  41
  42 </div>
  43 </div>