#!/usr/bin/perl

use CGI qw(:standard);

print "Content-type: text/html\n\n";

$i = "1";
print "<h1><font face=\"arial\">Оформление заказа</font></h1>";
print "<table border=1 cellspacing=0 cellpadding=6 align=left>
<tr><td>№</td><td>Наименование</td><td>Количество</td><td>Дополнительно</td><td>Цена</td><td>Сумма</td></tr>
";
while ()
{
$name = param("item_name_$i");
$num = param("item_number_$i");
$quant = param("quantity_$i");
$price = param("amount_$i");
$dop = param("os0_$i");
$sum = $quant * $price;

if ($name eq "") {last;}
print "<tr><td>$num</td><td>$name</td><td>$quant</td><td>$dop</td><td>$price</td><td>$sum</td></tr>";
$i++;
}
print "</table>";