#/usr/bin/perl
print "Content-type:text/html\n\n";
print "Build Table.pl\n";
print "\n";
$total_cells = 517; # would be recordset
$display_cells = $total_cells / 15;
$row_count = 10; # rows for my table
$col_count = $display_cells / $row_count; # cols I'll have
print "\n";
# counters
$row_inc = 1;
$col_lable = 1;
$nav_count = 15;
$nav_inc = 15;
for($r = 1; $r <= $row_count; $r++) # build rows
{
print "\n";
for($c = 0; $c < $col_count; $c++) # build cols
{
if($nav_count < $total_cells)
{
print "| $col_lable | ";
}
else
{
print " | ";
}
$col_lable+=10;
$nav_count+=150;
}
print "
\n";
$row_inc++;
$col_lable = $row_inc;
$nav_inc+=15;
$nav_count = $nav_inc;
}
print "
";
print "\n";