Select Code to Download

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

sub get_product_table
{
...
                 
     
}

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

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