sub get_product_table
{
my $sth = shift;
my $dbh = WebDB::connect ();
my ($clref, $ref);
my @row;
my @nav_link;
my ($color, @color);


	
	while (my $ref = $sth->fetchrow_hashref ())
	{

               $clref = $dbh->prepare ("SELECT color, prod_id FROM item WHERE prod_id = ".$ref->{product_id});
               $clref->execute();
    
               while (my ($color, $prod_id) = $clref->fetchrow_hashref()) {
               push @{$ref->{color}, $ref->{prod_id}}, ($color->{color}, $prod_id->{prod_id});
                  }



	 my $serve_url = sprintf ("serve_image.cgi?product_id=%s;picture", escape ($ref->{product_id}));            	



# generate a form allowing a quantity of the item to be added
# to the cart
push (@row, start_form(-method=>'POST', -action=>url()),
hidden( -name => "choice", -override => 1, 
-default => "add" ),
hidden( -name => "prod_id", -override => 1, 
-default => escapeHTML($ref->{prod_id})),
        Tr ({-style=>"font-family: verdana; font-size: 10pt;"},
   td (img ({-src => $serve_url, -alt => escapeHTML($ref->{product_id})})), 
   td ({-width=>"80", -valign=>"top", -align => "center"}, escapeHTML( $ref->{prod_id} )),
   td ({-width=>"190", -valign=>"top"}, escapeHTML( $ref->{description} ))),
   td (" "),
   Tr ({-style=>"font-family: verdana; font-size: 10pt;"}, 
   td ({-colspan => "3", -align => "right", -style=>"font-weight: 700; color:blue;"}, "Price:  \$", escapeHTML( sprintf( "%.2f", $ref->{price}))),
   Tr ({-style=>"font-family: verdana; font-size: 10pt;"}, 
   td ({-colspan => "3", -align => "right"}, "Colors:", popup_menu( -name => "color", -values => $ref->{color}))),
   Tr ({-style=>"font-family: verdana; font-size: 10pt;"}, 
   td ({-colspan => "3", -align => "right"}, "Quantity:", popup_menu( -name => "quantity", -values => ["1", "2", "3", "4", "5", "6", "7", "8", "9"])),
   td (image_button( -name => "Add Item", -src=>"../images/add.jpg", -border=>"0" )))),
   Tr ({-valign=>"top"},
   td ({-colspan=>"7", -width=>"100%"}, hr)),
end_form()
);

	}
	$sth->finish ();

	return undef unless @row;		# no items?

	return (table ({-border => 0, -align => "center", -style=>"font-family: verdana; font-size: 10pt;"}, @row));
                 
     
}