cgi-bin/maps/lpimp_ibl/chromosome4.pl

   1 use strict;
   2 use CXGN::Page;
   3 my $page=CXGN::Page->new("chromosome4.html","html2pl converter");
   4 $page->header("Mapping information for chromosome 4");
   5 print<<END_HEREDOC;
   6
   7   <center>
   8
   9     <h1>Chromosome 4</h1>
  10 <img alt="" src="/documents/maps/lpimp_ibl/IMAGES/lycopimp4.png" usemap="#synteny_map_chr4" />
  11 <map name="synteny_map_chr4" id="synteny_map_chr4">
  12       <area alt="" coords="370,65,459,76" href=
  13       "/search/markers/markerinfo.pl?marker_id=147" />
  14       <area alt="" coords="370,216,469,227" href=
  15       "/search/markers/markerinfo.pl?marker_id=199" />
  16       <area alt="" coords="370,387,485,398" href=
  17       "/search/markers/markerinfo.pl?marker_id=165" />
  18       <area alt="" coords="370,549,472,560" href=
  19       "/search/markers/markerinfo.pl?marker_id=608" />
  20       <area alt="" coords="370,577,470,588" href=
  21       "/search/markers/markerinfo.pl?marker_id=210" />
  22       <area alt="" coords="370,644,469,655" href=
  23       "/search/markers/markerinfo.pl?marker_id=73" />
  24       <area alt="" coords="370,710,480,721" href=
  25       "/search/markers/markerinfo.pl?marker_id=9" />
  26       <area alt="" coords="370,862,483,873" href=
  27       "/search/markers/markerinfo.pl?marker_id=66" />
  28       <area alt="" coords="370,987,484,997" href=
  29       "/search/markers/markerinfo.pl?marker_id=118" />
  30       </map>
  31   </center>
  32 END_HEREDOC
  33 $page->footer();