#! /usr/bin/perl -w

use Common;

HTML_header("Montville Township Chamber of Commerce");

readByCATEGORY();     # create hash of categories

print "<CENTER>\n";
print "<table width='70%' cellpadding=5 cellspacing=0><tr><td>Please choose the first letter in the company name you are searching for. Letters with no links indicate that no business beginning with that letter is a member of the Chamber.</td></tr>\n";
print "<tr><td align=center><B>";

foreach $letter (@alphabet) {
  if ($bnameLetters{$letter}) {
    print "  <A HREF=$cgiPath/letter.cgi?$letter>$letter</A>&nbsp;\n";
  }
  else {
    print "  $letter&nbsp;\n";
  }
}
print "</B></td></tr>";
print "<tr><td valign=top>Or search by category, by selecting the topic that best matches your search criteria.</td></tr></table>\n";

$midwayPoint = int(scalar(keys(%hash)) / 2);
$cntCategory = 0;

print "<table width='80%' cellspacing=0 cellpadding=5><tr><td valign=top>\n";
foreach $category (sort(keys(%hash))) {
  $categoryURL = $category;
  $categoryURL =~ s/ /+/g;
  print "<A HREF=\"$cgiPath/category.cgi?$categoryURL\">$category<br>\n";
  if ($cntCategory == $midwayPoint) {
    print "</td><td valign=top>";
  }
  $cntCategory++;
}
print "</td></tr></table>\n";


print "</table>\n";
print "<HR>";
print "<CENTER>\n";
print "<P><a href=$cgiPath/add.cgi>Add a Member</a></p>\n";
print "<P><a href=$cgiPath/edit.cgi>Update Member Information</a></p>\n";

HTML_footer();
exit;