#!/usr/bin/perl

use strict;

use Apache2::RequestUtil;
use lib '/data/www/plantontology/plantontology/lib/perl';

use PlantOntologyPage;

use CGI;
use CGI qw(:standard *table *TR *th *td *ul *ol);

my $page_title = "Plant Ontology Consortium";
my $q = CGI->new();
my $page = PlantOntologyPage->new(Apache2::RequestUtil->request);

#print $q->header;

print $q->start_html( -title=>$page_title,
		      -style=>{'src'=>$page->stylesheet}
		    );
print $page->start_body();

print $page->end_body;