Help for this page

Select Code to Download


  1. or download this
    @color = split (/,/, $ref->{color});
    
    td ({-colspan => "3", -align => "right"}, "Colors:", popup_menu( -name
    + => "color", -values => \@color))),
    
  2. or download this
    sub get_product_table
    {
    ...
                     
         
    }
    
  3. or download this
    sub add_item
    {
    ...
        $cart_ref->{item_id}->{qty} = $qty;
                    $cart_ref->{$item_id}->{color} = $color;        
    }
    
  4. or download this
    sub format_cart_html
    {
    ...
                ));
                return (table ({-align => "CENTER", -border => 0}, @row));
    }