Select Code to Download

sub get_product_table
{
...

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

push (@row, start_form(-method=>'GET', -action=>url()),
hidden( -name => "choice", -override => 1,  -default => "update" ),
...
                        ? td (a ({-href => $url}, img ({-src => "../im
+ages/delete.jpg",  -border => "0"})))
                                                                      
+                          : td ("    ")),
end_form()