mason/homepage/potato_genome_info.mas

   1
   2
   3 <%doc>
   4
   5 Mason module that displays div of potato genome status information, based on the contents of a file.
   6 Takes no arguments.
   7
   8 </%doc>
   9
  10 <%perl>
  11
  12 use File::Spec;
  13
  14 my $file;
  15 my $html = "(Potato genome information currently not available)";
  16
  17 eval { $file = File::Spec->catfile($c->get_conf('homepage_files_dir'), 'potato_genome_info.txt');
  18 $html = $m->file($file);
  19 };
  20
  21 </%perl>
  22
  23 <% $html %>