mason/homepage/oldloci.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 oldloci.mas - a mason component that shows a list of loci that have been featured in the locus of the week section. The component takes no parameters.
   7
   8 =cut
   9
  10 </%doc>
  11
  12 <%perl>
  13 use strict;
  14 use File::Spec;
  15 use CXGN::Tools::File;
  16
  17 my $file=(File::Spec->catfile($c->get_conf("homepage_files_dir"), "loci.txt"));
  18
  19 my $loci = qq{ <br /><p class="boxbgcolor5"><br />The list of all loci of the week is currently unavailable due to a server problem. We apologize for any inconvenience. Please check back later.<br /><br /></p><br /><br /> };
  20
  21
  22 eval {
  23
  24   $loci = $m->file($file);
  25
  26 };
  27
  28
  29 </%perl>
  30
  31 <& /page/page_title.mas, title=>'All loci of the week' &>
  32
  33 <% $loci %>
  34