mason/homepage/locus_of_the_week.mas

   1
   2 <%perl>
   3
   4 use strict;
   5 use File::Spec;
   6 use CXGN::Tools::File;
   7
   8 my $loci = qq { The locus of the week is currently unavailable. <br /><br /> };
   9
  10 eval {
  11   $loci = CXGN::Tools::File::get_sections(File::Spec->catfile($c->get_conf("homepage_files_dir"), "loci.txt"));
  12
  13 };
  14 </%perl>
  15
  16 <div class="boxbgcolor1" style="margin:0px; ">
  17 <div class="boxheading">Locus of the week</div>
  18 <div class="boxcontent"><% $loci %>
  19 <a href="oldloci.pl">See previous 'loci of the week'...</a><br /><br />
  20 <a href="/search/direct_search.pl?search=loci">Search other loci...</a>
  21 </div>
  22 </div>