Clean up code by making first column <th> for all rows.
print(
'<tr>',
- sprintf('<t%s class="cat">%s',
- $cat ne $_->{cat} ? ('h', $cat = $_->{cat}) : ('d', ' ')
- ),
- '<td>' . $_->{name},
+ '<th class="cat">', $cat ne $_->{cat} && ($cat = $_->{cat}),
+ '<td>', $_->{name},
showunitcols($_),
);
for my $subrow (@{ $_->{special} }) {
$subrow->{alt} or next;
print(
- '<tr class="alt"><td class="cat"><td>' . $subrow->{alt},
+ '<tr class="alt"><td class="cat"><td>', $subrow->{alt},
showunitcols($subrow),
);
}