#! /usr/bin/perl -w

use Common;

($categoryToFind) = $ENV{'QUERY_STRING'};
$categoryToFind =~ s/\+/ /g;

HTML_header("West Essex Chamber of Commerce");

readByID($categoryToFind);   # create hash of IDs of businesses starting
                             # with $letter.

# Sort the businesses by adding the id number
# to the end of the bname, sorting, and then
# spliting the string to retrieve the id number.

foreach $id (keys(%items)) {
  push(@bnames, "$items{$id}->{'BNAME'}=$id");
}

print "<H1>$categoryToFind</H1>\n";
printBusiness();

HTML_footer();
exit;