cgi-bin/maps/tomato_arabidopsis/chr8_split.pl

   1 use strict;
   2 use CXGN::Page;
   3 my $page=CXGN::Page->new('chr8_split.html','html2pl converter');
   4 $page->header('Chromosome 8');
   5 print<<END_HEREDOC;
   6
   7   <br />
   8   <br />
   9
  10   <center>
  11
  12   <h1>Chromosome 8</h1>
  13
  14     <br />
  15     <p>(Click on one of the sidebars to view that region in detail)</p>
  16
  17     <br />
  18
  19
  20     <img alt="" src="/documents/maps/tomato_arabidopsis/map_images/chr8_split.png" border="none"
  21     usemap="#chr8_map" /> <map name="chr8_map" id="chr8_map">
  22       <area alt="" coords="240,15,275,195" href="chr8a.pl" />
  23       <area alt="" coords="240,196,275,375" href="chr8b.pl" />
  24       <area alt="" coords="240,376,275,550" href="chr8c.pl" />
  25       <area alt="" coords="295,100,330,280" href="chr8d.pl" />
  26       <area alt="" coords="295,281,330,460" href="chr8e.pl" />
  27     </map>
  28   </center>
  29 END_HEREDOC
  30 $page->footer();