Select Code to Download

change:

...
my ($customer_id) = @_;

my $dbh = WebDB::connect ();

if ($choice eq "submit")            # customer submitted order number
{
...
}
else
...

sub print_results
{
...
{
my $customer = @_;