sub count_rows_sectnode ($) {
my ($sectnode) = @_;
my $rows = 0;
- $rows++ if $sectnode->{Status};
+ $sectnode->{RealSect}{OwnRows} //= 0;
+ if ($sectnode->{Status}) {
+ $rows++;
+ $sectnode->{RealSect}{OwnRows}++;
+ }
$rows += count_rows_sectlist $sectnode->{Children};
$sectnode->{Rows} = $rows;
$sectnode->{RealSect}{Rows} = $rows;
# Now we have
# $sectnode->{Rows}
# $sectnode->{RealSect}{Rows}
+# $sectnode->{RealSect}{OwnRows}
sub count_rows_sectlist ($) {
my ($sectlist) = @_;
$colspan= ' colspan="2"';
if ($sectnode->{RealSect}{HasCaveat}[$i] && $st
&& $sectnode->{RealSect}{Anchor}) {
- my $rows = $sectnode->{RealSect}{Rows};
- $nextcell = sprintf '<td rowspan=%d>', $rows;
+ my $rows = $sectnode->{RealSect}{OwnRows};
+ $nextcell = '<td';
+ $nextcell .= sprintf ' rowspan=%d', $rows if $rows>1;
+ $nextcell .= '>';
$nextcell .= docref_a $i, $sectnode->{RealSect};
$nextcell .= '[*]</a>';
$nextcell .= '</td>';