mason/homepage/locus_of_the_week.mas

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