cgi-bin/maps/lpimp_ibl/chromosome10.pl

   1 use strict;
   2 use CXGN::Page;
   3 my $page=CXGN::Page->new("chromosome10.html","html2pl converter");
   4 $page->header("Mapping information for chromosome 10");
   5 print<<END_HEREDOC;
   6
   7   <center>
   8
   9     <h1>Chromosome 10</h1>
  10 <img alt="" src="/documents/maps/lpimp_ibl/IMAGES/lycopimp10.png" usemap="#synteny_map_chr10" />
  11 <map name="synteny_map_chr10" id="synteny_map_chr10">
  12
  13       <area alt="" coords="370,69,473,79" href=
  14       "/search/markers/markerinfo.pl?marker_id=152" />
  15       <area alt="" coords="370,305,472,316" href=
  16       "/search/markers/markerinfo.pl?marker_id=186" />
  17       <area alt="" coords="370,572,470,582" href=
  18       "/search/markers/markerinfo.pl?marker_id=142" />
  19       <area alt="" coords="370,667,485,677" href=
  20       "/search/markers/markerinfo.pl?marker_id=473" />
  21       <area alt="" coords="370,743,459,753" href=
  22       "/search/markers/markerinfo.pl?marker_id=3181" />
  23       <area alt="" coords="370,914,479,924" href=
  24       "/search/markers/markerinfo.pl?marker_id=72" />
  25       <area alt="" coords="370,970,469,981" href=
  26       "/search/markers/markerinfo.pl?marker_id=22" />
  27       <area alt="" coords="370,1047,473,1057" href=
  28       "/search/markers/markerinfo.pl?marker_id=88" />
  29     </map>
  30   </center>
  31 END_HEREDOC
  32 $page->footer();