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

# html
my ($spaces) = "   ";

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

my ($num_cols) = 5;

print header,start_html(-title=>"Migrant Bird Stopover Habitat Survey");

print "<CENTER>
<TABLE BORDER=0><TR>
  <TD ALIGN=CENTER COLSPAN=$num_cols><IMG SRC=\"../graphics/conte_header.jpg\"><BR>
<H3>Bird Photo Directory</H3>
<A HREF=\"../index.html\"><IMG SRC=\"../graphics/home.jpg\" BORDER=0 WIDTH=56 HEIGHT=25></A>
<A HREF=\"./species.pl\"><IMG SRC=\"../graphics/speciesindex.jpg\" BORDER=0 WIDTH=111 HEIGHT=28></A></TD></TR>\n";

if ($d == 1) {

        my ($cur) = "";

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

	my ($temp,$temptext,$a,$b,$c,$d,$e) = "";

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

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

		if ($nospace =~/.jpg$/) {
			$temp = "$nospace";
			$temp =~s/.jpg$//;
			$nospace = "$temp";
		}

		if ($curr_col > $num_cols) {
			print "</TR><TR>
   <TD ALIGN=CENTER>$a</TD>\n";
			$a = "";
			if ($b) {	print "   <TD ALIGN=CENTER>$b</TD>\n";	$b = "";	}
			if ($c) {	print "   <TD ALIGN=CENTER>$c</TD>\n";	$c = "";	}
			if ($d) {	print "   <TD ALIGN=CENTER>$d</TD>\n";	$d = "";	}
			if ($e) {	print "   <TD ALIGN=CENTER>$e</TD>\n";	$e = "";	}
			
			print "</TR>\n";
			$curr_col = 1;
		}
		if ($curr_col == 1) {
			print "<TR>\n";
		}	
		print "   <TD ALIGN=CENTER VALIGN=CENTER WIDTH=180 HEIGHT=140><A HREF=\"./show-bird.pl?bird=$nospace\"><IMG SRC=\"../birdpixs/thumbnails/$nospace.jpg\" BORDER=0></A></TD>\n";

		$temptext = "<A HREF=\"./show-bird.pl?bird=$nospace\">$name</A>";

		if ($curr_col == 1) {
			$a = "$temptext";
		} elsif ($curr_col == 2) {
			$b = "$temptext";
		} elsif ($curr_col == 3) {
			$c = "$temptext";
		} elsif ($curr_col == 4) {
			$d = "$temptext";
		} elsif ($curr_col == 5) {
			$e = "$temptext";
		}
		$curr_col++;
		$bird_count++;
	}

	print "</TR>\n";
	if ($bird_count) {

		print "<TR>\n";
		if ($a) {	print "   <TD ALIGN=CENTER>$a</TD>\n";	}
		if ($b) {	print "   <TD ALIGN=CENTER>$b</TD>\n";	}
		if ($c) {	print "   <TD ALIGN=CENTER>$c</TD>\n";	}
		if ($d) {	print "   <TD ALIGN=CENTER>$d</TD>\n";	}
		if ($e) {	print "   <TD ALIGN=CENTER>$e</TD>\n";	}
		print "</TR>\n";

		print "<TR>\n   <TD ALIGN=CENTER COLSPAN=$num_cols><BR><BR>$bird_count birds</TD></TR>\n";
	}

}



print "</TABLE>\n";


$dbh->disconnect;


# subs

# 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    |                |
#| acct_file    | varchar(128) | YES  |     | NULL    |                |
#| graph_file   | varchar(128) | YES  |     | NULL    |                |
#| last_update  | datetime     | YES  |     | NULL    |                |
#+--------------+--------------+------+-----+---------+----------------+
#10 rows in set (0.03 sec)



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