cgi-bin/phenome/generic_gene_page.pl

   1 use CGI;
   2 use CXGN::DB::Connection;
   3 use CXGN::Phenome::GenericGenePage;
   4
   5 my ($locus_id) = CGI->new->param('locus_id')
   6     or do { print "no locus_id passed"; exit };
   7
   8 print "Content-Type: text/xml\n\n";
   9
  10 my $xml_page = CXGN::Phenome::GenericGenePage
  11     ->new( -id => $locus_id,
  12            -dbh => CXGN::DB::Connection->new
  13           );
  14
  15 print $xml_page->render_xml();
  16