#!/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 ($dothis) = param('dothis');	# the ol' dothis
if (!$dothis) {
	$dothis = 1;
}

# html
my ($spaces) = "   ";
my ($face) = "<FONT FACE=\"Arial, Helvetica, sans-serif\" SIZE=-1>";

my ($dbh) = &birds::connect_to_db;
my ($cur,$timestamp) = "";

my ($num_cols) = 5;

print header,start_html(-title=>"Species Studied List");


if ($dothis == 1) {

        my ($cur) = "";

	my ($curr_col) = 1;
	my ($bird_count) = 0;

	my ($lc_code) = "";
	my ($graphsuffix) = "_graphs.html";

	print "<CENTER>\n<TABLE BORDER=0><TR>
  <TD ALIGN=CENTER COLSPAN=$num_cols><IMG SRC=\"../graphics/conte_header.jpg\"><BR>\n";

	&make_nav;

	print "<H3>Conte Study Species List</H3>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1><TR>
   <TD ALIGN=CENTER BGCOLOR=\"#D8D8D8\" WIDTH=50><B>Code</B></TD>
   <TD ALIGN=CENTER BGCOLOR=\"#D8D8D8\" WIDTH=180><B>Common Name</B></TD>
   <TD ALIGN=CENTER BGCOLOR=\"#D8D8D8\" WIDTH=180><B>Latin Name</B></TD>
   <TD ALIGN=CENTER BGCOLOR=\"#D8D8D8\" WIDTH=180><B>Quick Links</B></TD></TR>\n";

        $cur = $dbh->prepare("SELECT id,common_name,nospace_name,latin_name,species_code FROM species ORDER BY common_name");
        $cur->execute;
        $DBI::err and die "Prepare/Execute error: $DBI::err .... $DBI::errstr";

        while (my($id,$name,$nospace,$latin,$uc_code) = $cur->fetchrow_array) {

		$lc_code = lc $uc_code;

		print "<TR>
   <TD ALIGN=CENTER>$face<A HREF=\"./bird-details.pl?bird=$nospace\">$uc_code</A></FONT></TD>
   <TD ALIGN=LEFT>$face$name</A></FONT></TD>
   <TD ALIGN=LEFT>$face<I>$latin</I></A></FONT></TD>
   <TD ALIGN=CENTER>$face<A HREF=\"./show-bird.pl?bird=$nospace\">Photo</A>$spaces
<A HREF=\"./bird-details.pl?bird=$nospace\#maps\">Map</A>$spaces
<A HREF=\"./graphs.pl?bird=$nospace\">Graphs</A></FONT></TD></TR>\n";


	}

}


print "</TABLE><BR><FONT SIZE=-1>Copyright (c) 2006 Smith College</FONT><BR><BR>\n";

$dbh->disconnect;


# subs
sub make_nav {

	print "<!-- nav -->
<TABLE BORDER=0><TR>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../index.html\"><IMG SRC=\"../graphics/home.jpg\" WIDTH=56 HEIGHT=25 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../Chapter1_intro.html\"><IMG SRC=\"../graphics/chapter1.jpg\" WIDTH=84 HEIGHT=27 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../Chapter2_surveymethods.html\"><IMG SRC=\"../graphics/chapter2.jpg\" WIDTH=84 HEIGHT=27 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../Chapter3_results1.html\"><IMG SRC=\"../graphics/chapter3.jpg\" WIDTH=84 HEIGHT=27 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../Chapter4_results2.html\"><IMG SRC=\"../graphics/chapter4.jpg\" WIDTH=84 HEIGHT=27 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../Chapter5_Conclusions\&Recommendations.html\"><IMG SRC=\"../graphics/chapter5.jpg\" WIDTH=84 HEIGHT=27 BORDER=0></A></TD>
   <TD ALIGN=CENTER WIDTH=90><A HREF=\"../acknowledgements.html\"><IMG SRC=\"../graphics/next.jpg\" WIDTH=56 HEIGHT=25 BORDER=0></A></TD>
</TR></TABLE>
<!-- end nav -->\n";

} # end make_nav

# reference
#
#mysql> desc species;
#+--------------+--------------+------+-----+---------+----------------+
#| Field        | Type         | Null | Key | Default | Extra          |
#+--------------+--------------+------+-----+---------+----------------+
#| id           | int(11)      | NO   | PRI | NULL    | auto_increment |
#| common_name  | varchar(128) | YES  |     | NULL    |                |
#| nospace_name | varchar(64)  | YES  |     | NULL    |                |
#| latin_name   | varchar(128) | YES  |     | NULL    |                |
#| sort_int     | int(11)      | YES  |     | 0       |                |
#| species_code | varchar(8)   | YES  |     | NULL    |                |
#| image_c      | varchar(32)  | YES  |     | NULL    |                |
#| last_update  | datetime     | YES  |     | NULL    |                |
#+--------------+--------------+------+-----+---------+----------------+



# revisions
# 2/25/2015 - Suzanne - program created