Sorry, I find out bug in previous code. Use this:
use CGI qw(:standard);
open (FH, "items.txt") or die "Can't open file. Cause: $!";
my @items = sort ;
chomp(@items);
print header();
$num_cols = 2;
$num_items_in_td = 2;
for ($i = 0; defined($items[$i]); $i += $num_items_in_td) {
push @tds, t
Here's my offer (you can change $num_items_in_td and $num_cols):
use CGI qw(:standard);
open (FH, "items.txt") or die "Can't open file. Cause: $!";
my @items = sort ;
chomp(@items);
print header();
$num_cols = 4;
$num_items_in_td = 5;
for ($i = 0; defined($items[$i]); $i += $num_items_in_td) {
('Choose your favourite brand:'),
@trs
);
---
Alexander Kleshchevnikov,
DirectEDI Developer
email:[EMAIL PROTECTED]
icq: 153617972
---
"Ing. Branislav Gerzo" <[EMAIL PROTECTED]> wrote in message
news:[E
