Select Code to Download

elsif ($choice eq "add")            # add item to shopping cart
{
    add_item ($dbh, $cart_ref, param ("product_id"), param("quantity")
+, param("color"));
    $page .= format_cart_html ($cart_ref, 1);
}

sub get_product_table
{
...
                 
     
}

sub add_item
{
...
    $cart_ref->{$product_id}->{qty} = $qty;    
                $cart_ref->{$product_id}->{color} = $color;    
}

sub format_cart_html
{
...
            ));
            return (table ({-align => "CENTER", -border => 0}, @row));
}