sub get_product_table
{
my $sth = shift;
my @row;

	while (my $ref = $sth->fetchrow_hashref ())
	{
# generate a form allowing a quantity of the item to be added
# to the cart
push (@row, start_form(-method=>'GET', -action=>url()),
hidden( -name => "choice", -override => 1, 
-default => "add" ),
hidden( -name => "item_id", -override => 1, 
-default => escapeHTML( $ref->{item_id} )),
        Tr (
   td ( escapeHTML( $ref->{item_id} )),
   td ( escapeHTML( $ref->{description} )),
   td ( { -align => "right" }, escapeHTML( sprintf( "%.2f", $ref->{price}))),
   td ( "" ),
   td ( textfield( -name => "quantity", -size => "2")),
   td (image_button( -name => "Add Item", -src=>"../images/add.jpg", -border=>"0" ))),
end_form()
);

	}
	$sth->finish ();

	return undef unless @row;		# no items?

	unshift (@row, Tr (				# put header row at beginning
				th ("Item"),
				th ("Description"),
                                                                th ("Price"),
                                                                th (""),
                                                                th ("Qty"),
                                                                
			));

	return (table ({-border => 0, -align => "center"}, @row));
}