cgi-bin/maps/tomato_arabidopsis/chr1a.pl

   1 use strict;
   2 use CXGN::Page;
   3 my $page=CXGN::Page->new('chr1a.html','html2pl converter');
   4 $page->header('Chromosome 1');
   5 print<<END_HEREDOC;
   6
   7   <br />
   8   <br />
   9
  10   <center>
  11 <h1><a href="chr1_split.pl">Chromosome 1</a></h1>
  12 <h3>- Section A -</h3>
  13
  14     <br />
  15     <br />
  16
  17     <table summary="">
  18       <tr>
  19         <td align="right" valign="top"><img alt="" align="left"
  20         src="/documents/maps/tomato_arabidopsis/map_images/chr1a.png" border="none" /></td>
  21
  22       </tr>
  23     </table>
  24   </center>
  25 END_HEREDOC
  26 $page->footer();