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 <!--
  17 <div class="boxbgcolor1" style="margin:0px; ">
  18 <div class="boxheading">Locus of the week</div>
  19 <div class="boxcontent"><% $loci %>
  20 <a href="oldloci.pl">See previous 'loci of the week'...</a><br /><br />
  21 <a href="/search/direct_search.pl?search=loci">Search other loci...</a>
  22 </div>
  23 </div>
  24 -->
  25
  26 <h4>Featured Locus</h4>
  27 <% $loci %>
  28 <button class="btn btn-info btn-sm" onclick='location.href="/oldloci.pl"'>See previous...</button>    <button class="btn btn-primary btn-sm" onclick=location.href="/search/direct_search.pl?search=loci">Search other loci...</button>