foreach(@{$sth->{NAME}})
{
   push(@cols, td($_)) if real_show( 0 ,$_);
}

$sth=$dbh->prepare("SELECT * FROM $type,grp,class WHERE $type.grp=grp.id AND $type.class=class.id");
$res=$sth->execute();
print start_html();

foreach(@{$sth->{NAME}})
{
   push(@cols, td($_));
}
unshift @cols, td('#');

while(my $c = $sth->fetchrow_hashref())
{
   my @row;
   ### разбиваем на разные таблицы
   push @table, '</table><br><table border="1">' if(($last_class ne $c->{class})&&($last_class));
   ### счетчик рядов
   push @row, td(++$i);

   ### заносим название таблицы
   if (($last_class ne $c->{class}))
   {
	push @table, Tr(td({colspan=>$sth->{NUM_OF_FIELDS},bgcolor=>'#cccccc'},$c->{class_name}));
   }
   ### заносим заголовок для таблицы
   if ($last_grp ne $c->{grp})
   {
	push @table, Tr(td({colspan=>$sth->{NUM_OF_FIELDS},bgcolor=>'#eeeeee'},$c->{group_name}));
	push @table, @cols;
   }
   ### заносим в масив текущую строку
   foreach(@{$sth->{NAME}})
   {
	push @row, td($c->{$_});
   }
   push(@table, Tr(@row));
   $last_class=$c->{class};
   $last_grp=$c->{grp};
}
###выводим таблицу
print table({border=> 1 },@table),br();