cgi-bin/maps/lpimp_ibl/chromosome5.pl

   1 use strict;
   2 use CXGN::Page;
   3 my $page=CXGN::Page->new("chromosome5.html","html2pl converter");
   4 $page->header("Mapping information for chromosome 5");
   5 print<<END_HEREDOC;
   6
   7   <center>
   8
   9     <h1>Chromosome 5</h1>
  10 <img alt="" src="/documents/maps/lpimp_ibl/IMAGES/lycopimp5.png" usemap="#synteny_map_chr5" />
  11 <map name="synteny_map_chr5" id="synteny_map_chr5">
  12       <area alt="" coords="370,71,482,81" href=
  13       "/search/markers/markerinfo.pl?marker_id=384" />
  14       <area alt="" coords="370,183,487,194" href=
  15       "/search/markers/markerinfo.pl?marker_id=102" />
  16       <area alt="" coords="370,259,469,270" href=
  17       "/search/markers/markerinfo.pl?marker_id=188" />
  18       <area alt="" coords="370,422,473,432" href=
  19       "/search/markers/markerinfo.pl?marker_id=159" />
  20       <area alt="" coords="370,517,458,527" href=
  21       "/search/markers/markerinfo.pl?marker_id=158" />
  22       <area alt="" coords="370,849,491,859" href=
  23       "/search/markers/markerinfo.pl?marker_id=3084" />
  24       <area alt="" coords="370,877,484,888" href=
  25       "/search/markers/markerinfo.pl?marker_id=127" />
  26       <area alt="" coords="370,962,489,973" href=
  27       "/search/markers/markerinfo.pl?marker_id=173" />
  28       <area alt="" coords="370,1086,490,1097" href=
  29       "/search/markers/markerinfo.pl?marker_id=176" />
  30       </map>
  31   </center>
  32 END_HEREDOC
  33 $page->footer();