#!/usr/bin/perl use strict; use DBI; use CGI ":all"; use lib qw(/usr/local/modules/); use birds; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); # params my ($bird) = param('bird'); my ($dothis) = param('dothis'); if (!$dothis) { $dothis = 1; } # html my ($spaces) = " "; # start my ($nospace) = ""; if (!$bird) { $dothis = 0; } my ($id) = &birds::lookup("species","id","nospace_name","$bird"); my ($code) = &birds::lookup("species","species_code","id","$id"); my ($uc_code) = uc $code; my ($lc_code) = lc $code; my ($dbh) = &birds::connect_to_db; my ($cur,$cur2,$timestamp) = ""; print header,start_html(-title=>"$uc_code Graphs"); print "