#!/usr/bin/perl -w
use strict;			# Check our syntax strictly
use diagnostics;	# Tell us how to fix them
use CGI;				# Import the CGI module
use Carp;
use Mysql;			# Use the MySQL module

use Company;
use SiteDesign;


#Create an instance of CGI
my $query = new CGI;
my	$company = new Company;
my $pagelayout = new SiteDesign;
my %hash = ();

$pagelayout->pageTop( $query, "Select a Company");
print "<p><a href=newCompany.pl?state=new><h3>Setup a new company </h3></a>\n";
print "<p><h3>Select an existing company</h3>\n";
my $dbh = Mysql->connect("localhost","stocks","jack","s1mc1ty");
my $sth = $dbh->query("select symbol,exchange,name from companyinfo order by name");

print "<table border=0>\n";
print "<th>Name<th>Exchange<th>Symbol</th>\n";
while (%hash = $sth->fetchhash) {
	my $temp = $hash{"name"}; $temp =~ s/\s/+/g;
	print "<tr><td><a href=displayInfo.pl?exchange=$hash{'exchange'}\&symbol=$hash{'symbol'}\&name=$temp>$hash{'name'}</a></td>";
	print "<td>$hash{'exchange'}<td>$hash{'symbol'}";
#	print "<td><a href=displayCompany.pl?exchange=$hash{'exchange'}\&symbol=$hash{'symbol'}> Display Company</a>";
#	print "<td><a href=updateCompany.pl?state=update\&exchange=$hash{'exchange'}\&symbol=$hash{'symbol'}>Update Company</a>";
#	my $temp = $hash{"name"}; $temp =~ s/\s/+/g;
#	print "<td><a href=newData.pl?state=new\&exchange=$hash{'exchange'}\&symbol=$hash{'symbol'}\&name=$temp>Add a year of data</a>";
#	print "<td><a href=displayData.pl?exchange=$hash{'exchange'}\&symbol=$hash{'symbol'}\&name=$temp>Display year data</a>";
#	print "<td>Delete <td>Analysis</tr>\n";
	}
print "</table>\n";

$pagelayout->pageBottom($query);